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The TREB for Project KOl has completed the review of the ERS for SINGLE. Unlike 
most reviews by a TREB, our efforts have spanned several months. During that time, 
several changes, enhancements, revisions, etc., were requested and I believe we 
finally have a product which will be satisfactory for the initial implementation. 


There remains, however, a few items that should be detailed here. These items 
should be considered as either requiring additional details (possibly in appendix 


form) or are items you should be aware of in dealing with this product in the 
future: 


o The details of all error messages (format, content, etc.) have not been 
specified in the ERS, but we expect them to be included in a subsequent 
appendix. 


o The print character set is satisfactory for our implementation, but may 
not be acceptable for a European implementation. 


o The ability to alter the syntax of the "analyzer" is referred to in the 
document, but is not clearly defined in the ERS. 


The above items do not alter the basis of our recommendation, but only serve as. 
points of information. 


Several enhancements that were requested by the TREB were declared not feasible 

for the initial implementation. This was due not only to the time constraints 

for the initial implementation, but also in part to design philosophy differences 
between the TREB and the developers. I have, however, taken the liberty of including 
a list of enhancements in this memo that the TREB feels must be implemented in 

order to make the product totally usable by Programming Systems. This list is 
arranged in priority sequence as established by the TREB. 


1. Allow constant and preset records. 
2. Provide clearer definition of asynchronous processing capabilities. 
3. Implement overlay capability. 


4. String, SINT and INT qualifiers default to value size for constant and 
preset items. 7 7 
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Add ability to generate re-entrant code. 

Allow maximum string length of 2048 characters. 

Allow definition of names to substitute for qualified reference forms. 
Allow literals in simple type qualifiers within the satetane section. 


Maximum size for numeric data and maximum length of numeric literals = 
18 decimal digits. Also allow arithmetic on operands up to 18 digits 


Add a source construct expressing an 'edit' function. 
Allow numeric literals in all type qualifiers. 
Add pointer variables. 


Allow (or make mandatory) explicit specification array lower subscript 
limits. | | 


Allow literal values in action statements. 
Implement compiler on ersten Ten. 

Add machine-independent console I/0 epstatey: 
Allow conditional expressions. 

Add binary and packed decimal data items. 
Consider hie ability to use coroutines. 


Add hexidecimal data items. 


The priority listed above is a "recommended priority" and reflects the opinion 
of the TREB. We recognize the final selection is at the discretion of management. 


Some of these recommendations concern the "ease of use" of the language. Only 


the use of the language will determine if the "ease of use" factor is outweighed 
in practice by the extra structure. . 


long. 


Other recommendations concern the ability to use the language for all programs or 
products. The TREB recommends that SINGLE be used on products only after due | 
consideration is made of the language limitations with respect to the program or 
product to be developed. : | 
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Since the above list functions as an "RSM list", I recommend we create a formal 
RSM for each enhancement and process the RSMs per our existing RSM procedure. 
In order to adequately describe the details of the RSMs, consideration should 
be made to include a copy of each RSM with any distribution of the ERS. I also 
recommend this memo be included in all distributions of the ERS. This would 
assure the readers of the importance placed upon the RSM list by the TREB. 


One of the duties of the TREB is to point out discrepancies between a product's 
POR and ERS. These discrepancies may be trivial, but they should, nevertheless, 
be called to your attention. The POR states the compiler runs on the IBM 370 
OS/MVT. The ERS reflects an update to this by stating the compiler runs on the 
IBM 370 OS/VS2. I believe this update is due to the current operating environment. 
at SISCO. Per our previous discussions in which this point was raised and your 
willingness to accept this discrepancy, I recommend you approve the ERS for the 
initial implementation. 


It is the understanding of the TREB, that unlike the usual automatic termination _ 
of the TREB duties upon issuing a letter of recommendation, this TREB will remain 
"intact" to provide recommendations to the enhancements detailed above. : 
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BRIEF DESCRIPTION OF PRODUCT 


' THIS PRODUCT IS A COMPILER WHICK RUNS ON AN 18M 370 OS/VS2 
~SYSTEMe IT ACCEPTS AS SOURCE LANGUAGE THE SOFTWARE IMPLEMENT®@ 
© ATION LANGUAGE CALLED SINGLEs And PRODUCES OBJECT CUDE FOR 
~ THE SINGER SYSTEM TEN COMPUTERs Jw A FORM ACCEPTABLE TO 


THE SYSTEM TEN LINK EDITOR PROGRAM. 


REFERRED IN THIS— 


OVERLAY HANOLING 
ASYNCHRONOUS PROCESSING 
MPU I/O INSTRUCTIONS 


ARE PLANNED TO RUN ON 


THE SYSTEM TEN» TO GENERATE MB GBUECT CODE» ETCe EACH OF 


THESE WILL BE SPECIFIED IN A&& 
TECHNICAL REFERENCES — 
THE SINGER IMPLEMENTATION LANGUAGE 


NOVEMBERs sg (COPY ATTACHED). 


A COMPILER GENERATOR» BY MCKEEMAN ET. Ales PRENTICE *HALLs 19708 


SYSTEM TEN LINK EDITOR REFERENCE MANUAL» 4478 476"401"00 » 
system TEN RUF DISC SYSTEM REFERENCE MANUAL» 408315% 
OME TI PROGRAMMER !S REFERENCE Manuals 44eB800"401"006 

08 JCL JOB CONTROL LANGUAGE REFERENCE GC288670483 
WASP LI SYSTEM MANUAL 360D=051.014 VERSION 3 
PL/I. LANGUAGE REFERENCE MANUALS GC33-0009+ 


CPU INSTRUCTIONS REFERENCE MANUAL 42=2500"01+ 
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POR RECONCILIATION 


“ALL CONSTRAINTS ON THE EXTERNAL DESIGN” 
DEFINED. BY THIS ERS AND THE POR 'S JERS! 


SOON AS THEY ARE DETECTED> CUN 
ANY OVERSIGHTS IN ANY OF THE DOCS 


THIS ERS SHALL DETAIL ALL 
RELATED ERS'Se AS SUCH, 


- OMISSION OF FEATURES 


MODEL 21 PROCESSOR REFERENCE MANUALs 42=20226 


MODEL 21 ACUs, 9001500"01, FUNCTICNAL AND PHYSICAL SPECIFICATION 


9007033 


MODEL 20 ACU FUNCTIONAL SPECIFICATIONs 9006681+ 


rHIS PRODUCT ARE 
STEU BELOW. THE 
POR'S TAKE PRECEDENCE OVER THIS ERG BM EVERY INSTANCE « 

APPARENT CONFLICTS OR AMBIGUITI + ACE BE INVESTIGATED AS - 


ATTENTION OF THE DIRECTOR, 


MATURES STATED IN THE PUR'S AND 
‘ THE FINAL EXTERNAL LEVEL 
DOCUMENT FOR DEVELOPMEN® 
SCOPE OF THE PRODUCTe 


| GBeoED IN THE POR'S OR ADDITION OF — 
FEATURES IS NOT PERMI | 


OTHER RELEVANT POR(S) AND ERS(S) 


_ THE POR CALLS FOR A NUMBER OF PRopuUCTSs GENERATING CODE FOR 
SEVERAL OBJECT MACHINES AND INCORPORATING CERTAIN FEATURES OF 
. THE SINGLE LANGUAGE WHICH ARE OMITTED FROM THIS FIRST | 
 -MPLEMENTATIONe THESE PRODUCTS wILL BE DETAILED IN FUTURE - 
. ERS DOCUMENTS» EACH OF WHICH IS CONSTRAINED TO BE UPWARD 


COMPATIBLE WITH THIS ERS», IN THE SENSE THAT THAT COMPILER WILLE 


ACCEPT ANY PROGRAM WHICH CONFORMS TO THE SPECIFICATIONS OF THIS ERS* 
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* SECTION 5¢2¢3*3 CONSTITUTES A FORMAL DEFINITION - 
+ OF THE SINGLE LANGUAGE* FOR A moORE INFORMAL EXPOSURE TO THE 
¥ “BASIC IDEAS AND STRUCTURE OF THE LANGUAGE, THE READER 
x - UNACQUAINTED WITH SINGLE IS ADVISED TO FIRST READ THE ATTACHED 
* / REFERENCE DOCUMENTs 'A DESCRIPTION OF SINGLE®! 
| 
4 
4 
* 3e1-' NOTATION 
3 
# ae . _ 
* THE BASIC NOTATION FOR THE SYNTax RUGES™@F SECTION 9¢2e303 IS 
* THE STANDARD METALANGUAGE FOR DESCeIBENG SYNTAX UF CONTEXT= 
* FREE GRAMMARS* IT MAKES USE UF “wie 
¥% : A 
* a AND > ARE USED TO BOUND THE fk 
¥ FOR EXAMPLEs THE APPEAR KY 
* SYNTAX RULE neans: Mone 
¥ WHICH HAS BEEN F OY 
= CONSTRUCT "SIMPLE 
C ci IS THE METASY PUSED TO DENOTE THE DEFINTION OF THE 
* CONSTRUCT WHO EF APPEARS TO THE LEFT OF THIS — 
¥ SYMBOL AS A STANCE oF THE FORM APPEARING TO THE 
+ RIGHT OF TH BOL « FOR EXAMPLE» 
x <SIMPLE TY 3s2 <IDENTIFIERD 
* - | 
* 18 THE METASYMBOL DENOTING ALTERNATE FURMS WHICH MAY 
* : BE USED TO DEFINE A CONSTRUCTe FOR EXAMPLES 
+ _<SIMPLE TYPE> $3 <]DENTIFIERD> 
7 f INT<PQUALIF> 
= SPECIFIES TWO ALTERNATTVE WAYS OF FORMING AN INSTANCE 
x OF <SIMPLE TYPE>+ NOTE THAT SYNTAX DEFINITIONS NEED 
4 NOT BE EXCLUSIVEs AND THEREFORE THE ABOVE EXAMPLE IS 
* SIMPLY SHORTHAND FOR THE PAIR OF DEF INITLONS 
* <SIMPLE TYPED 332 <InNENTIFIERD 
# <SIMPLE TYPE> $3= Iwt <PQUALIF> | 
‘ | ae 
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"A FORM IS A SEQUENCE OF LITERAL CHARA re nies eee 
A CONSTRUCT NAME* ANY SEQUENCE § 


TEXT 


SEPARATOR MUST APPE ARG 
STRINGS» (SEE BELOW 


SYNTAX RULES: 


‘EACH RULE OF THE SYNTAX JS EXPRESSED AS 


<CONSTRUCT NAME> $i FORH 


ORs FOLLOWING ANOTHER RULE FOR THE SAME C@giRIRUCT» AS 


f FORM 


ANY 


SEQUENCE OF CHARACTERS PRECEEDEQ , 


5, } tan STRINGs REPRESENTS 
ING THE LITERAL APPEARANCE OF @faoSe CHARACTERS IN THE INPUT 


BLANK CHARACTERS BEGINNIN @ TERMINATING A FORM ARE NOT 

SIGNIFICANTs»NOR ARE BLANMEHEe 

AND A “CONSTRUCT® “BLANK CHARACTERS 

RAL STRINGS IMPLY THAT SOME PURE 

WHE INPUT TEXT BETWEEN THE TwOQ 
DISCUSSION OF SEPARATORS) 


THE MEANING. oF EACH SYNTAX RULE 1S THAT TF A SEQUENCE OF 
CHARACTERS IN THE INPUT TEXT IS FOUND (IGNORING NUON®SYNTACTIC 
SEPARATORS) TO CONSIST OF STRINGS WHICH “SATISFY" THE FORM 

ON THE RIGHT SIDE OF THE iti=s THEN THAT SEQUENCE UF TEXT MAY 


_ BE CONSIDERED AN INSTANCE OF TRE CONSTRUCT WHOSE NAME APPEARS 
“ON THE LEFT OF THE ¢3#+ A FORM 1S "SATISFIED" IF EACH 


SUCCESSIVE INPUT STRING SATISFIES THE SUCCESSIVE ELEMENTS 


OF THE FORM, IN THE SENSE THAT: 


A LITERAL IN A FORM IS SaTISFIED BY THE EXACT 
_ APPEARANCE OF THAT SEQUENCE OF CHARACTERS IN THE INPUT 
TEXT: 3 
_ A CONSTRUCT IN A FORM IS sSaTISFIED BY THE APPEARANCE 
OF A SEQUENCE OF INPUT TExT WHICH SATISFIES ONE OF THE 
FORMS WHICH DEFINE THAT CONSTRUCT. 


FOR EXAMPLEs THE RULE FOR REPLACEMENT STATEMENTS: 
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2 LOW LEVEL SYNTAX = THE SCANNER 


‘WITHIN SECTION 3e2¢2s REFERENCE To A‘® 


FOR EXAMPLEs THE CONS 
TERMINAL CONSTRUCTS» ° 
CONSTRUCTS. BUT ARE NOF 


<REP STAT> i= <STORE LIST><REPLACE><EXPRES> 


IS SATISFIED BY THE INPUT TEXT 


AL»A23eX#(Y+Z) 


WHERE THE STRING A1sA2 SATISFIES <STORE LIST>» THE STRING ?= 
SATISFIES <REPLACE>s AND THE REMAINDER SATISFIES <EXPRES>« 


SEQUENCE OF CHARACTERS wILL FOLLY 
LANGUAGE FOR THE SPECIFICATION @ 


‘THE REPRESENTATION OF A LITERAL {§TRENG IS DENOTED BY THE 
APPEARANCE OF ONE OF THE CHARAC.FEgg APOSTROPHE OR GUOTE MARK, 


AND ALL CHARACTERS FOLLOWING QRGTL 


“THE NEXT APPEARANCE OF THAI 
SAME DELIMITER FORM A LITERAL | 


yNGe 


SCANNER LEVEL WHICH REC BS THE TERMINAL CONSTRUCTS» Icke, 
THOSE CONSTRUCTS IN THE MMAR wHICH HAVE NO DEFINING RULE ® 
® <IDENTIFIER> AND <NUMBERD> ARE 

WY APPEAR IN FORMS DEFINING OTHER 
THEMSELVES DEFINED wITHIN. THE RULES+ 
THE REQUIREMENTS AND RESTRICTIONS IMPOSED BY IE SCANNER ARE 
DISCUSSED IN PART IN Se2@e3e3e2s SEMANTICS NOTES» WHICH IS 
ORGANIZED TO PARALLEL THE SYNTA x RULES OF BRePesSeodele HOWEVER s 
SOME ASPECTS OF THE SCANNER ENCOMPASS ALL OF THE SYNTAX RULES,» 


-. AND ARE MORE CONVENIENTLY DISCUSSED HERE. 


seasons 


IN RECOGNIZING THE TERMINAL CONSTRUCTS OF A LANGUAGEs SOME 
_ MEANS IS NEEDED TO DISTINGUISH THE BEGINNING AND ENDING OF | 
EACH CONSTRUCT WITHOUT LOOKING aHEAD OR BACK IN THE INPUT - 


oe FOR. EXAMPLEs IF THE INPUY TEXT INCLUDES? 


ria s B Pcie 


THE SCANNER MUST RECOGNIZE THAT If" IS A TERMINAL CUNSTRUCT 
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(RESERVED WORD) AND "A" JS.AN INSTANCE OF <IDENTIFIERD>:s THIS 
LEADS TO THE IDEA OF SEPARATORS, wHICH NEED NOT BE PART OF. THe 
SYNTAX BUT SERVE TO NOTIFY THE SCANNER THAT ANY TERMINAL 
CONSTRUCT BEGUN TO THE LEFT OF THE SEPARATOR cNUS BEFORE THE % 
| SEPARATORe THE SCANNER FOR THE SINGLE LANGUAGE RECOGNIZES 
- THREE PURE (THAT ISe SERVING NO OTHER FUNCTION) SEPARATORS; 


" ¥(BLANK),» 
"34, AND 
ENDeQFeLINE 


PASE THE TRANSITION _ 
E ck ALTHOUGH age 1s 
ul OR END©*OFe*LINEs © 


THE USE OF "3" aS A SEPARATOR IS mEANT TQ 
FOR PROGRAMMERS WITH ALGOL OR PL/] EXPERS 
ACCEPTED AS A SEPARATOR, IT WILL NGT A 
~~ QUTPUTs BEING REPLACED AS APPROPRIATE 


THE USE OF END*OF*LINE AS A SEPARA LMR 
STATEMENTS OR EXPRESSIONS MAY NOT dhl 

TO THE NEXT» BUT ONLY THAT TERMY 
CIDENTIFIERDSsRESERVED WORDSsETC 
SAME LINE* SEE 3e2°2+3 FOR SR 


NUT IMPLY THaT 
“WENTINUED FROM ONE LINE 
ONSTRUCTS SUCH AS. 

PT BEGIN AND END ON THE 
SEPARATOR REWUIREMENTS© 


FUNCTION ALSO AS SEPARATORS 


TWO OTHER CHARACTERS» "6» os 
~TIC FUNCTIONS: 


BUT HAVE ADDITIONAL NON@s ¥@ 


“AND ALL SUBSEQUENT CHARACTERS 

F FORM a COMMENTs NOT PART OF THE 
BE PRINTED IN THE SOURCE OUTPUT ~ 
LISTINGs ANY CAM@ATTERS oF THE SINGLE LANGUAGE May 
APPEAR WITHIN A GBMMENT+ TRAILING BLANKS» AND IN SOME 
CASES LEADING BLANKS» MAY BE SUPPRESSED IN THE OUTPUT 
OF A COMMENT. NO INTERPRETATION IS MADE OF. NON®@ BLANK 
CHARACTERS WITHIN A COMMENT. 


*$" INDICATES THAT TH 
-- UNTIL NEXT. END- Fef 
INPUT SYNTAX, 


"®" IS USED AS A DEBUGGING CONTROL FOR THE CUMPILER ITSELF. 
IT ACTS LIKE A COMMENT IN THAT EVERYTHING FROM #9" TQ 
END*OF*LINE IS NON@SYNTACTIC, AND GETS PRINTED IN THE 

“SAME MANNER AS A COMMENT*® HOWEVER, THE CHARACTERS 
FOLLOWING THE “?* ARE ANALYZED» AND VARIOUS COMPILER. 
DEBUG OPTIONS ARE CONTRULLED BY THEMe THIS IS NOT AN 
EXTERNAL FEATUREs AND THE JNTERPRETATION OF THE 
CHARACTERS IN A DEBUG CONTROL ELEMENT IS SUBJECT TO | 
CHANGE HOWEVER AND WHENEVER THE COMPILER MAINTENANCE 
- FUNCTION DEEMS IT NECESSARY. THUS THE USER SHOULD 
. REGARD THE EFFECT OF '?' as UNDEFINED® 
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3s26262 CHARACTER SET 
THE SINGLE CHARACTER SET CONSISTs OF ALL BUT TWO OF THE 
ASCII 64 CHARACTER SET* THE EXCLUDED CHARACTERS ARE "Xu ; 
AND "&*+ THESE CHARACTERS ARE REGUIRED FOR COMMUNICATIONS 
- PURPOSES, ANO THEIR APPEARANCE wITHIN SINGLE INPUT TEXT wILL 
RESULT IN THEIR REPLACEMENT BY wen AND \w RESPECTIVELY. 
“THE SINGLE CHARACTERS CONSIST UF 27 <ALPHABETIC> CHARACTERS: 
—WABCDEFGHI UKLMNOPQGRSTLUVWxyZe™ 
PLUS 10 DIGITS: 
| 40123456789" 
PLUS 2 SEPARATORS: 
n oye 
PLUS 5 OPERATORS: 


Mpees\u | 


PLUS 4 RELATIONAL SYMBOL Gs 
ecoete | 
PLUS 6 GROUPING SYMBO 
*() C21" AND te! 
PLUS 6 MISCELLANEOUS SYMBOLS: 
vfestion 
“PLUS 2 SPECIAL SEPARATORS: 
ro 
THE APPEARANCE OF ANY CHARACTER NOT ALPHABETIC OR A DIGIT 
~ SERVES THE FUNCTION OF A SEPARATOR IN ADDITION 10 WHATEVER ~ 
SYNTACTIC. AND/OR SEMANTIC SIGNIFJCANCE JT MAY HAVE*® NOTE 
THAT ALTHOUGH THE SCANNER NEVER NEEDS MORE THAN A SINGLE 
SEPARATOR BETWEEN TWO TERMINAL CONSTRUCTS, IT WILL ACCEPT 


ANY NUMBER OF NON@SYNTACTIC SEPARATORS IN SUCCESSIONe THUS» 
FOR EXAMPLE, IT IS PERMISSIALEs ALTHOUGH REPREHENSIBLEs TO © 
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WRITES 


Xs mA; BS sevevres 
Govvecesesveveres 
Geovcccvesse 
Seccececsvesgcer (LOTS AND LoTS OF COMMENTS) 
Socevesecececes | 
3 + § Bevece® (MORE COMMENT) 
3 C 3 Bevever 


THE SCANNER WILL PASS. 


:eA+C 


on TO THE SYNTAX ANALYZER« 


A CHARACTERS ARE EITHER 
SB TERMINAL CONSTRUCTS» 
YNSTRUCTS SUCH AS "Ven, 
AND IS NOT AFFECTED BY 
OUTPUT SUCH CONSTRUCTS 
BEN THEIR COMPONENT 


ALL OF THE NON@ ALPHABETIC ANC None, 
NON*SYNTACTICs «© 36?"» OR ARE THEME 
THE RECOGNITION OF MULTIPLE SYMAgy™ 
He>"sETCe IS NOT MADE BY THE SC 
NON@=SYNTACTIC SEPARATORS, ALTH@S 
WILL HAVE NO PURE SEPARATORS | 

CHARACTER Se r ™ 
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S+2+2+3 COMPOSITE iat CON S and PURE SEPARATORS 


eee APPENDIX Cos TERMI NGG kN NONe TERMINAL CONSTRUCTSs FOR A 
LISTING OF THE TERMINAL CONSTRUCTS OF THE SINGLE LANGUAGE. 
THEY CONSIST OF. we!e"s, INOIVIOUAL SPECIAL CHARACTERS» 
PURELY ALPHABETIC LITERALS (RESERVED WORDS)s AND THE FOUR 
CONSTRUCTS: 


<IDENTIFIERD 
<NUMBERD 
<QSTRING> 
SEMPTY> 


oF THESE, <EMPTY> IS A CONDITION RECOGNIZED BY THE HIGHER - 
es SYNTAX AND Is OF NO CONCERN TO THE SERRNER CY 


THE REQUIREMENTS. FOR PURE SEPARaTORS BETWEEN TERMINAL CONSTRUCTS 
MAY BE. STATED AS FOLLOWS: 


A PURE SEPARATOR IS REYLTRED BETWEEN TwOQ TERMINAL | 
CONSTRUCTS IF AND ONLY IF THE FIRST IS AN IDENTIFIER OR A> 
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RESERVED. WORD» AND THE SECOND IS AN LOENTIF IER» A 
RESERVED WORD» OR A. “NUMBER « 


320204 RULES FOR COMPOSITE TERMINAL CONSTRUCTS» 


_A COMPOSITE TERMINAL CONSTRUCT Has AS ITS LEFTMOST CHARACTER 
EITHER AN ALPHABETICs A DIGITs OR ONE OF THE STRING GUOTES 'H! 
OR "tue IN THE FIRST CASE» THE CONSTRUCT IS ELTHER A RESERVED 
WORD OR AN IDENTIFIER* THE SCANNER EXAMINES SUCCESSIVE 
- CHARACTERS AND TERMINATES THE ConSTRUCT Ww END*OF*LINE IS 
ENCOUNTERED OR WHEN THE NEXT CHarRacTER } LINE IS NEITHER 
AN ALPHABETIC NOR A DIGIT+’ IF THE RES MORE THAN 10 
GHARACTERSs AN ERROR MESSAGE IS GENERAGEH, AND ALL | 
BUT THE LEFT=MOST 10 CHARACTERS are Q{SERRDED* THE CONSTRUCT 
IS COMPARED WITH THE LIST OF NE SE RED WORDS» AND IS IDENTIFIED 
AS THAT RESERVED WORD IF A MATCH yg Pe 
FOUNDs THE CONSTRUCT IS IDENTIF pe0"® <IDENTIFIER>® IN THIS 
IMPLEMENTATIONs IDENTIFIERS MAY Br AO MORE THAN SIX CHARACTERS 
IN LENGTH (FIVE CHARACTERS IF PRECEDED BY '£' )e IF THERE ARE 
FEWER THAN 6 (OR 5) CHARACTER@,.YaeREGIN, BLANKS ARE ADDED ON TrE 
RIGHT TO FILL» NOTE THaT “MeL SINGLE LANGUAGE ALLOWS 10- 
CHARACTER IDENTIFIERS+ STRICTION TO 6 IS FUR CONSISTENCY 
LOS. IF THE IDENTIFIER WAS LUNUGER © 
pE IF PRECEDED BY A '£')s2 AND NO ERRORS) 
BARNING MESSAGE RESULTS» AND THE OUTPUT 
TIF IER TRUNCATED ON THE RIGHT TO THE 
VENT THe COMPILER WILL PLACE THE 
IDENTIFIER IN THE SYMBOL TABLE» | 


OND IF NO MATCH IS. 
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THAN SIX CHARACTERS (OR@ 
HAVE BEEN ENCOUNTERED, 
LISTING WILL HAVE TH 
MAXIMUM LENGTHe IN Al 
TRUNCATED VERSION OF 


IF THE LEFTMOST CHARACTER IS A pIGITs THE CONSTRUCT IS : 
IDENTIFIED AS <NUMBER>s AND THE SCANNER EXAMINES SUCCESSIVE 

— CHARACTERS AND TERMINATES THE CONSTRUCT WHEN THE NEXT 

~ CHARACTER IS NOT A DIGIT, OR WHEN END*OFeLINE 1S FOUNDe IF 

'- THE RESULT HAS MORE THAN 10 DIGITS, AN ERROR MESSAGE | a 
Is GENERATED» AND ALL BUT THE RIGHTMOST 10 DIGITS ARE DISCARDED. 


IF THE LEFTMOST CHARACTER Is A STRING QUOTEs THE ‘CONSTRUCT “IS 
IDENTIFIED AS <QSTRING>s THE SCANNER EXAMINES SUCCESSIVE | 
CHARACTERS UNTIL THE SAME QUOTE. CHARACTER TS FOUNDs OR UNTIL 
~ END*OF*¢LINE>s IN THE LATTER CASE an ERROR MESSAGE IS | 
GENERATEOe IF THE CONSTRUCT HAS MORE THAN 60 CHARACTERS. 
(NOT COUNTING THE DELIMITERS) AN ERROR MESSAGE IS 
_, GENERATED?” AND ALL 8UT THE LEFTmMost 60 CHARACTERS. ARE DISCARDED. 
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“§.20205 en ELEMENTSé 


CERTAIN ASPECTS. oF OWE CEVEL SYNTAX DEPEND UPON PUSITION IN 


THE INPUT LINEs _ THESE ARE: 


A) 


BY. 


C) 


0D) 


THE BLOCK PERMINMEORe eae AND '/*! (SEE Se2e3e3e2s RULES 1:2) | 


ARE RECOGNIZED ONLY IF THEY apPEAR STARTING IN COLUMN 1 OF AN 


INPUT LINEe JF THEY APPEAR FLSEWHERE wITHIN A LINEs ONE UR MORE 


ERROR MESSAGES MAY RESULT» AND THE SCANNER WILL ATTEMPT TO. 
READ FURTHER. 

ONLY THE FIRST 74 CHARACTERS oF EACH | 
ANY ADDITIONAL CHARACTERS IN THe LINES @] 
SOURCE OUTPUT LISTING CONSISTS OF 78®@Ch 
OF WHICH THE LAST FOUR CHARACTERS ES 
NUMBER CALCULATED BY THE COMpy_LEF 
CROSS#REFERENCE TABLES ™ 
IF THE FIRST CHARACTER OF AN yynplUya. 
ALL SUCCEEDING CHARACTERS UP #y™ FIRST BLANK WILL. BE 
IGNORED BY THE SCANNER. Sois <BONE SO THAT THE COMPILER 
CAN ACCEPT AN INPUT TEXT whHdtty, TAINS LEVEL AND CONTROL 
INFORMATION. SUCH AS THAT P: med BY THE COMPILER SOURCE 
LISTINGe IF NO BLANK IS FR IN SUCH A LINEs AN ERROR 


LINE ARE READe 
GNOREDe THE 
ZECTER RECORDS 
OUR DIGIT LINE 
SE AS A BASIS FOR 


LINE IS A DIGIT» THEN 


ALSOs IF THE FIRST CHa R OF THE LINE IS A DIGITs AND THE 
NEXT IS AN ASTERISKs GABP ENTIRE LINE WILL SE IGNORED WITH NU 
MESSAGE GENERATED. | Mm, CONVENTION ALLOWS MANY NON@#ERROR 
MESSAGES TO BE INP THE COMPILER WITH NO AUVERSE EFFECTS. 
VARIOUS UNDOCUMENT ONVENT TONS ARE USED IN THE RUF DISCH 
HASP COMMUNICATIONs NVOLVING SPECIAL CHARACTERS IN COLe 1 
OF AN INPUT.OR OUTPUT LINE*® IF THE RUF IS TO BE USEDs, A 
SAFE POLICY IS TO INSURE THAT CoLe 1 OF EACH INPUT LINE 
CONTAINS AN ALPHABETIC (INCLUDING "et ), A NUMERIC, tel, 

OR A BLANKe THE COMPILER OUTPUT IS STRUCTURED TO AVOLD 

ANY pene ne OF THIS TYPE « 


“STRUCTURAL TERMS 


THE STRUCTURE OF A SINGLE PROGRAM MAKES USE OF A NUMBER OF 
CONCEPTS: FOR WHICH THE TERMINOLOGY IS DESCRIBED HEREe 


AN INDIVIDUALLY COMPILABLE UNIT oF SOURCE CUDE IS TERMED A 


 BLOCKe A BLOCK IS EITHER A PROGRAM BLOCK OR A CONTEXT BLOCKe 
7 rar PROGRAM BLOCK Is EITHER 7. PROCEDURE BLOCK OR A TASK BLOCK « 
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A COMPLETE PROGRAM CONSISTS OF a SET OF BLOCKS: A CONTEXT 
~BLOCKs A TASK. BLOCKs AND POSSIBLy OTHER PROGRAM BLUCKS. | 
(IN THE CURRENT IMPLEMENTATIONs THESE OTHER PROGRAM BLOCKS - 
nust BE PROCEDURE BLOCKS)» A CONTEXT BLOCK NAY Be COMMON | 
TO SEVERAL DISTINCT COMPLETE PRaGRAMS* EACH TASK BLOCK TO 
_ WHICH THE CONTEXT BLOCK DEFINES LINKS IS THE HIGHEST LEVEL 
-OF SOME COMPLETE PROGRAM. 
_ THROUGH DEFINITIONS» EACH BLOCK 1S LINKED TU A UNIJGUE HIGHER 
LEVEL BLOCKs EXCEPT THAT A CONTEXT BLOCK HAS NO HIGHER LEVEL. 
~ ALSOs EACH BLOCK DEFINES LINKS To LOWER LEVEL BLOCKSe EACH 
_OF THESE LOWER LEVEL BLOCKS MUST LINK UP TO THE BLOCK 
~ WHICH DEFINED DOWNWARD LINKS TO THEMe J JS "B TYPICAL PROGRAM 
_ STRUCTURE MIGHT HAVE: ) 


CONTEXT aA 
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HERE TASK B. 1S. THE HIGHEST LEVEL BLOCK OF A COMPLETE: PROGRAMs 
TASK E IS THE HIGHEST LEVEL BLUCK OF ANOTHER COMPLETE PROGRAM 
WHICH MAKES USE OF THE SAME CONTEXTe PROCEDURES C AND D ARE 

ACCESSIBLE TO ANY PROGRAM USING CONTEXT Ay AND WILL BE LOADED 

AS PART OF ANY SUCH PROGRAMe A BLOCK IS CALLED THE PARENT OF 

ANY BLOCK LINKED TO IT AT THE NExT LOWER LEVELe® THUSs FOR . 

— EXAMPLEs F IS THE PARENT OF Jsk, AND Le Jy Ke AND L ARE SAID 
TO BE DIRECTLY SUBORDINATE TO Fe JF TWO BLUCKS»s SUCH AS BAND 
—- Ke ARE SUCH THAT THERE EXISTS A SEQUENCE OF BLOCKS BsXsYueeK — 

“WITH EACH BLOCK THE PARENT OF THE FOLLOWING BLOCKs THEN kK IS 
SAID TO BE SUBORDINATE TO Be For ANY BLOCKs THE SCOPE OF THE 
BLOCK IS DEFINED AS THE BLOCK ITSELF PLUS ALL 8LOCKS WHICH. 

ARE SUBORDINATE ‘TO ITs 
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- THE LINK EDIT PROGRAMs AND/OR A symBOL gy, 
THE COMPILED FORM OF ALL DATA DEFINI 3 
“THAT BLOCK PLUS THOSE TO WHICH IT 1 


RUF) FOR THIS FUNCTION*® REMAIN 
‘TEXT EDIT» ONE OR MORE BLOCKS 
SUBMITTEDs AS PART OF A TEXT gm 


370 PERMANENT FILEs SO TH 


Se OPERATIONAL SOFTWARE 


Solel 


PRODUCT ORGANIZATION 


THE MODULE STRUCTURE OF THIS PRODUCT IS NOT AN EXTERNAL 


FEATURE» AND IS NOT DISCUSSED IN THIS ERSe THE DISCUSSION 


—. EN SECTION 5. DESCRIBES ONE UNIFIED USER INTERFACE TO THE 
. COMPILER AND ITS ENVIRONMENT 


THE SINGLE CROSS*COMPILER OPERATES ON ANY IBM 370 CAPABLE OF 
- RUNNING OS/VS2@ AND PL/I LEVEL iH. 1T PRODUCES A SOURCE QUTPUT 
LISTINGs VARIOUS OPTIONAL REFERENCE LISTINGS» AND OPTIONAL 

| _ COMPILED BLOCKS OF TWO KINOS: A LoaD MOD Ud 


CONSISTING OF 

YAs SUITABLE FOR 
E> wHICH CONTAINS 
ND DECLARATIONS OF 


A RELOCATABLE DECK OF SYSTEM TEN CODE A 


OF OPERATION IS VIA A SYSTEM TEN OQ 


WING AS A HASP TERMINAL 
TO THE 370+ THE SYSTEM TEN USES | 


SWMRTITIONS (FOR SCA AND 
PARTITIONS MAY BE USED FOR 
GLE SOUKCE CODE MAY BE 
FILE, TO Be COMPILED. 

WHEN THE COMPILATION IS COMP eeRESULTS ARE ROUTED BACK TO 
THE SYSTEM TENe ANY SYMBOLg@RABEE OUTPUT IS RETAINED IN A 
MOCKS SUBORDINATE TO A PREVe@ 
IOUSLY COMPILED BLOCK ™ BE SUBMITTED FOR COMPILATION WITHOUT 
RESUBMITTING THE HIGHE PEL BLOCKe 


SYSTEM CONSIDERATIONS 


HARDWARE CONSIDERATIONS 


7 REQUIRED HARDWARE 1S AN IBM 370 CAPABLE OF RUNNING A 200K .JOB 
UNDER OS/VS2s, WITH AT LEAST 400k AYTES OF DISC STURAGEs PLUS 


ma aa © 


MEDINATE® NORMAL MODE 


Per eSE Nee eee ' REVISION oo oe eee eee eee 
* MACH INES $2 | : A ! NEXT 45 ! SHEET 
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ENOUGH ADDITIONAL OISC SPACE TO HOLD OBJECT FILES* (ONE 
3330 DISC PACK SHOULD BE MORE THAN SUFFICIENT)+* ALSOs A 
CARD READERs CARD PUNCH AND PRINTER* OR A HASP INTERFACE 
CONNECTED oe A HasP TERMINAL. | y 


Se1e2 SOFTWARE CONSIDERATIONS 


THe PL/I LEVEL wW 
L&E PRUGRAMe. 
SOFTWARE J[S 


_ «THIS PRODUCT RUNS UNDER OS/VS2+ 171 REQU tS 
COMPILER TO CONVERT THE SOURCE 10 aN EX@@uTA 
- IF THE HASP CONNECTION IS USED» THEN THE a 
ALSO REQUIRED. _ : 
‘A SEPARATE PROGRAM, CALLED ANALYZER, QUIRED LF THE 
SYNTAX OF THE SINGLE LANGUAGE Is Tg . 


5e2 EXTERNAL ORGANIZATION, 


S201 GENERATION 


— THIS PRODUCT EXISTS AS A SOURCE FILE OF A PL/I PRUGRAMe IT 
IS COMPILED IN ONE COMPLETE CUMPILATIONe THE COMPILED rs 
. PROGRAM REQUIRES A FILE OF THE SYNTAX WHICH IS PREPARED BY 
_. THE ANALYZER PROGRAM AND CATALOGUED IN THE FILE SYSTEMe 


Se2ele2 © CUSTOMIZATION 


NO SPECIFIC CUSTOMIZATION FEATURES HAVE BEEN MADE® 


Kee KR KEKE KR KE KKK KEK KK EK KK KK KK KK KK KK KK KK KKK KK KR Ke KKK KEK KK 


ad oo lal totettatet eds = = oo me mom Sap Th an oe a Rom Pe BO we we adil Ran maw Po Re wee we oe Re ea 7 om Re ee Be Oe “= wan a ye 


SINGER $$ SINGLE EXTERNAL ! SHEET of! KOL - = 


* BUS I NES S ! REFERENCE Scere ' REVISION [err an ee newenananeenamey 
* MACHINES?! :. ' A ! NEXT 16 ! SHEET 15 » 


fjanaseomonne = > wo =e oF mF} aelead ‘i am. oo = = oon = a om oan om Se ne 8p BRae oe BH Oe Be = ey on Co Say WH oe ee ety =. mo 


Joa kaki aS Walk ibs AAS 21S iain Hanh Wibintebersrat otis Tokai a ivi erie aoe sho ah Sa ete alee yep imdesbvaaciat tine doe fi uiybe Ss oa sae ety tc att Ee ai ee ees a 


Yau Ge FEC 8H He Ce Ge ©e Be 22 eae _— = = wo ae wm 7S we mg Oa Wa ma =o wR Se ewe me Awe ee We He ee Hw He wy 
% 
¥ ico 


454201063 INSTALLATION | 


INSTALLATION UNDER ANY SUITABLE GS/vvS2@ SYSTEM IS ACHIEVED BY Z 
CATALOGUING THE COMPILER OBJECT FILE AND THE SYNTAX FILE, PLUS 
—. DEFINING A PERMANENT FILE TO BE USED BY THE OBYECT MANAGER FOR 
sRETAINING SYMBOL TABLESe THE OBUECT AND SYNTAX FILES ARE | 
CURRENTLY CATALOGUED AT SISCO IN SUNNYVALE AS SINGLE*+XCOM AND 
SINGLE +SYNTAX.e 


be2e2. INVOCATION 


be2e2e1 INVOCATION = OPERATOR INPUTS 


SINCE THIS RUNS AS A BATCH JO4 R OS/VS2s NO OPERATOR 


dls ARE REQUIRED® 
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~Se2e2e2 INVOCATION = OPERATOR & 


STANDARD OS/VS2 QPERA® NFORMATION® 
5+2e203 INVOCATION = PROGRAMMER INPUTS 


IF RUNNING LOCALLYs THE PROGRAMMER MAY PUT HIS JOB DECK IN| 
 -THE PUBLIC CARD READER. | | | 

«- JF RUNNING VIA’ HASP AND SYSTEM TEN RUFs HE SUBMITS AN RJF DISC 
CONTROL CARD (SEE RUF DISC MANUAL) TO CAUSE HIS FILE» WHICH 

MUST BE THE IMAGE OF A JOB DECK, To BE TRANSMITTED FOR : 

~~. EXECUTION» ALTERNATIVELYs HE May SUBMIT THE JOB VLECK VIA THE 
-SYSTEM TEN CARD READER» | : . 

— FHE JOB DECK WILL CONTAIN ONE OR MGRE BLOCKS OF SINGLE SOURCE 

CODE. “PRIOR TO SUBMISSION OF THe JOB DECK, EACH OF THESE © 

BLOCKS MUST BE EDITED WITH THE COMMAND _ s& * 


USE + SINGLE + RUSHIP 


Hrs PROCEDURE CONVERTS ALL '\' AND '1! CHARACTERS To 1&' AND 
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'%! RESPECTIVELY« THE COMPILER EXPECTS THE LATTER CHARACTERS 

RATHER THAN THE FORMERe THIS PROCESS IS NECESSARY TO AVOID 

TRANSMISSION ERRORS IF THE JOB IS SUBMITTED REMOTELY» OR 

SYNTAX ERRORS If THE JOB IS SUBMITTED LOCALLY* IF THE BLOCKS 

TO BE TRANSMITTED CONTAIN NO '\t anO/OR t¢t CHARACTERS» THE e 
GLOBAL CHANGES .CALLED FOR IN THE USE FILE WILL RETURN CONTROL | 
.TO THE TERMINAL WITH THE MESSAGE m»FAILS!«.5 IN THIS EVENT» IT IS 
' NECESSARY TO ENTER THE COMMAND 


USE® SINGLE «RJUSHIP N 


_ WHERE N IS 1#NUMBER OF LINES OF THE USE FILt ALREADY EXECUTED® 
 UTHE LINES EXECUTED ARE DISPLAYED ON Th OLE) | | 


ee eee = PROGRAMMER OUTPUTS 


F 32 PAGES UF PRINTER 
LY}¢ THESE ARE A BEGINNING 
ie (IF HASP IS USED)» ANU 


THE OUTPUTS DUE TO INVOCATION Cop 

QUTPUT (4 PAGES IF RUNNING REMO Te 
AND ENDING JOB BANNER PAGEs A Hyg 
A JCL LIST PAGE USING THE JCly 


B20 PROCESSING 


be2edel PROCESSING * OPERATOR’ INPUTS 
NONE. 
5620502 PROCESSING * OPERATOR OUTPUTS 
NONE 


5+203+3 PROCESSING = PROGRAMMER INPUTS 


THE PROGRAMMER INPUT CONSISTS OF a JCL JOB CARDs A FURTHER 
SET OF JCL CARDS MAINTAINED BY THE SINGLE COMPILER PROJECT | 
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AND CATALOGUED AT THE SOFTWARE DEVELOPMENT LAB UNDER THE 
NAME SINGLEeJCL» AND ANY NUMBER OF COMPILATION BLOCKS+ FOR 
THE SPECIFICS OF A JCL JOB CARD, SEE THE UCL MANUAL» 


Seceese3el SYNTAX 


THE SYNTAX OF SINGLE SOURCE PROGRAMS IS GIVEN BELUWe THIS IS 
THE SYNTAX RECOGNIZED BY THE COMPILER PROPERs BUT SEE SECTION 
30202 FOR DETAILS OF THE LOW LEveL SYNTAX WHICH IS RECOGNIZED 
— BY THE INPUT SCANNERe ONLY THE FORMAL SYNTAX DEFINITIONS 
ARE GIVEN HERE» WITH NOTES ON TRE SEMANT F BEACH DEFINITION 

. IN THE FOLLOWING SECTION» APPENDIX Bs» 
REFERENCES» SHOULD BE OF HELP In READ 
IN TRIS AND THE FOLLOWING SECTION, OGF 
AN ASTERISK ARE SUBJECT TO SPECIAL REG 
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6 <OPT ITEM> ¢t= we 
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¥ 31 <PARAMETER> 3:2 PARAMETER * 
: | = - * 
¥ 32 <PARAM DESCRIP> it@ <PARAM @f UST> <TCULON> <EXPRES> * 
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* 44 2. oo 1 <TYPE NAME> <LINK> <LINK DECL> * 
* fae S nn END <IDENTIFIER> | - 
# 42 Sw ' <TYPE NameE> <SCALARD * 
# 43. <TYPE NAME> 222 <IDENTIFIER> = 4 
¥ o 4 | | = ¥ 
a 4h = CRECORD> ti= RECORD ag 
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<GR OR EQ> 
<LT OR EQ> 
<NOT EG@> 
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(><EXPRES> <EXPRES PAIR Cd 


PSTAT> <ELSE> <UNBAL IF> 
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STAT> 
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* 205 $$ <NOT EQ> 33s ¢ & ¥ 
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¥ 206° <BLOCK STAT> $38 <BLOCK HEaAnp> <XEG STAT LST> END * 
* | om. 4 <GROUP NAme>d ! * 
‘ = | : * 
* 207 <BLOCK HEAD> 3:2 BEGIN <GROUP NAMED : oan 
¥ ie | . ” 
. 208 <CASE STAT> $32 <CASE> <EXpRES> <Cag <LAB STAT LST> ¥ 
# _ END CASE | ” 
* oe Tae ¥ 
¥ 209 <CASE> i$: CASE x 
* ge ot | . % 
48 (210  <CASE OF> $i= OF : 
% = ; ¥ 
* 214 <CYCLE STAT> $32 <CYCLE HEAal ALIFIERD><XEW STAT LST> WEXT * 
¥ | . # 4 <GROUP * 
¥ : - * 
* 212° <CYCLE HEAD> 3: = CYCLE NAME> ¥ 
* : oe | * 
, 213 <QUALIFIER> 33 <CON@mOE y . * 
‘i . af 
¥ 214 <GROUP NAME> 3:32 * 
* 215 - + 
=: : a 3 bs 
% 216 <CONTROL PARTD> ®&HILE <CONDITION> * 
* 217 : a. 2 ! <FOR PART> <RANGE LIST> ar 
* 218 ! <EMPTY> | | , * 
¥ ek ar : . 
* 219 <FOR PART> 3i= FOR <IDENTIFIER> $ =. * 
¥ oo : ¥ 
ee? 220 SEXPRES> $3 <TERM> * 
% 221 °°. — | ¥ 
% @2e  . °° £ €EXPRES> + <TERM> ¥ 
* 223°. gd CEXPRESD> © <TERMD> * 
¥ “3 | ¥ 
* 224 <TERM> $3# <PRIMARY> * 
.s 225 o ! <TERM> * <PRIMARY> ¥ 
% 226 ! <TERM> 7 <PRIMARY> + 
* 227 ! <TERM> \ <PRIMARY> * 
% ee : ¥ 
* 228 <PRIMARY> $3= <STORE REF> + 
* 229. | oo ! RANGE. ¥ 
* a | ¥ 
age ps * 
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230 ! <NUMBERD> 


{ 
231 ! <PARAM IDENTIFIERD 
232 t <QSTRING> 
233 t MIN ( <EXPRES> , <EXPRES> ) 
234 ! MAX ( <EXPRES> , <EXPRES> ) : 
235° > $ ASCII64& ( <ExPRESD ) 
236 = ' CONVIS ( <EXPRESD ) 
237— | { CONVSI ( <EXPRES> ) 
238 * ! FLAGVAL ( <IDENTIFIERD ) 
239 ' ALL | 
240 ! ABS(<EXPRESD) 
241: ' EMPTY 
' ( <EXPRES> ) 


242. 
542030302 SEMANTICS 


B.RESTRICTIONS AND © 
_ COMPILER, THAT IS» THE 


THE FOLLOWING MATERIAL DISCUSSES ith 


DEFINITION HAS BEEN necoaNi zeal ‘geil RESTRICTIONS AND 
REQUIREMENTS» IF ANYs OF TH Ea, © PEVEL SYNTAXe 
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4 SRUND fits <COMPILAT I ON2g #6 | 
= _ 1 <OPTIONS> @OMPIEATIOND +! 


* 


oe, 


COGNIZED BY THE SCANNER ONLY IF IT 
BEGINS IN COLUMN 1 OF RCE INPUT LINE.» THe LAST BLOCK OF 

THE RUN SHOULD BE TERMIPQ@ATED BY THE OS TERMINATOR '/*! RATHER THAN 
THE 'etete THIS TERMINATOR MUST aLSO BEGIN IN COLUMN 1 TO BE 
RECOGNIZED AS SUCH~ ON QUTEU Ts THE TERMINATOR IS ALWAYS 'elte'te 


THE tetet TERMINATOR 


6 <OPT ITEM> tte <IDENTIFIEK> 
7 * os <IDENT IF IER><SET><IDENTIFIER> 
& 1 <IDENTIFIER><SET><NUMBER> 


| IN THE CURRENT IMPLEMENTATIONS INSTANCES OF 7 AND 8 ARE 

: IGNORED. ie INSTANCES OF 6 ARE LimyTEO TQ SIX POSSIBLE CASES: 
DATAs CODEsCHECKsALIST*SAVESMEM1 and THETR NEGATIONS; 

Sa ela a laa 


| “DATA CAUSES AN ABSOLUTE DECK oF LOADABLE DATA TO BE PRODUCE Us 
THES INCLUDES: ALL LOADABLE DATA IN HIGHER LEVEL BLOCKS. 


. “CODE causes A RELOCATABLE DECK QF OBJECT CODE TO BE GENERATEDe 
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- COMMON MEMORY RESPECTIVELY: 


10 <COMPILATION> ?: 
4a. eS 


STATEMENT OF THE <xE@ S1 


14 * <PROG NAME> cts ¥ 


ALIST CAUSES. AN ASSEMBLY*LIKE LISTING OF THE DATA DECLARATIVES 
‘IN EFFECT FOR THIS BLOCK»: AND [Ff THE CODE OPTION IS SELECTEUs | 
ASSEMBLY@LIKE LISTING OF THE GENERATED ORJECT CUDE. 


SAVE CAUSES. THE COMPILED SYMByL TABLE TO REPLACE THE PREVIGUS ‘ 
SYMBOL TABLE FOR THAT BLOCK (IF ANY) IN THE UBUJECT FILE 
NOSAVE WILL CAUSE THE COMPILED SYMBOL TARLE TU NOT BE SAVEDe 


“CHECK PROVIDES FOR COMPLETE CROSS@REFERENCING OF ALL IDENTIFIERS 
EXCEPT GROUP NAMES* NOCHECK RESULTS IN CRUSS®REFERENCING ONLY 
THOSE DATA ITEMS FOR WHICH CHeck OPTIONS WERE SPECIFIED» 


"MEM AND MEM2 CAUSE THE BLOCK TO BE ALLQMMEED IN PARTITION UR 


ANY OTHER OPTION ITEM WILL CAUSE an ERR MESSAGE ® 


CHECK» NALISTsMEM1« AN 
CT FOR SUBSE WUENT Cone Eaten 


DEFAULT OPTIONS ARE NODATA» COLE, noo 
OPTIONs ONCE SPECIFIED» REMAINS [yy 
BLOCKS UNLESS OVER@RIDDEN BY ITS: 
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a Ee: 
me 
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© 
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WHEN A PROGRAM BLOCK IS CONTROL PASSES TO THE FIRST 


PX IDENTIFIERD 


IN THE CURRENT IMPLEMENYA TION» TASk IS RESTRICTED TO THE 


HIGHEST. LEVEL EXECUTABLE BLOCKs THAT IS, ITS PARENT MUST BE 


A CONTEXT BLOCKe THE USE OF TASKS IN ASYNCHRONOUS 
CODING IS A DEFERRED FEATURE- 


“46 PARENT DECL> i3= PARENT <IDENTIFIERD 
or. rs 7 


<EMPTY> 


YF THE NAMED PARENT IS NOT FOUND on FILE, AN ERROR. 
MESSAGE IS GENERATEDe 16 IS INCLUDED SO THAT THE COMPILER . 
CAN RECOGNIZE THE CONDITION AND FLAG THE ERROR SPECIFICALLY 


WITHOUT. CAUSING A LONG SEQUENCE GF ERROR MESSAGESe 


a7. <CONTEXT BLOCK> tt= <DECL LIST>. 


“ALTHOUGH THE SYNTAX SAYS THAT THE DEFINITION ITEMS MAY APPEAR 
TN ANY ORDERs THE SEMANTICS REGUTRES THEM IN THE ORDER | 
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CHARMAP »PARAMETERs TYPEs CONSTANT PRE SE Ts VARIABLE J FLAGS 
SUBROUTINE« EACH ITEM, OF COURSE, NEED NOT APPEAR. 


32 <PARAM DESCRIP> ii# <PARAM [0 LIST><TCOLON><EXPRES> : - 


THE RESTRICTIONS ON <EXPRES> FOR THIS DEFINITION ARE: 

THE FOLLOWING FORMS OF <PRIMARY> ARE NOT ALLOWED: "RANGES TALLIS 
TEMPTY', AND 'FLAGVAL le <STORE REF> IS ALLOWED AS A PRIMARY 

ONLY IF IT REFERS TO A PREVIOUSLY DEFINED CONSTANI OR PRESET 

DATA ITEMs OR TO A PREVIOUSLY DEFINED CHARMAP FUNCTIONe (SEE 

_ SEMANTICSs RULE 228)¢ <PARAM IDeENTIFIERD>D IS ALLOWED AS A PRIMARY 
ONLY IF THAT IDENTIFIER HAS BEEN PREVIOUS WebEF INED> . Oa 
ANY INSTANCE OF <EXPRES> WITHIN a PRIMAR® 3 SUBJECT TO THE SAME 
RESTRICTIONS ON PRIMARIES« : 


“THE <EXPRES> MUST EVALUATE TO A NON@NEGAWFVE INTEGER OR STRINGe | 
40 <TYPE DESCRIPT> i3= <TYPE NAMme SWECORD> <VAR DECL LST> 
: | EN TIFIER> | 


BN: 


41 
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 SLINK> <LINK DECLD> 
| | IDENTIFIER> 
| 4e > <SCALARD>D 
43 <TYPE wee <IDEN® 


WEELARING STRUCTURED DATA ELEMENTSe [HE 
<IDENTIFIER> IN THE <LYPE* AMtE> 1S DEFINED TO Be A DATA TYPE A 
DATA ITEM MAY THEN BE“ @EQ@MQARED IN THE DECLARATION SECTION AS 
HAVING THE TYPE WHOSE NAPE AND STRUCTURE ARE DEFINED HERE*® THE 
ELEMENTS OF THE <VAR DEGL LIST> are THE NEXT LEVEL "FIELDS" OF 
THE RECORDe THESE FIELDS MAY IN TURN BE OF SOME RECORD TYPEs 
AND THUS ONE) ney HAVE SUBFIELOS WITHIN FIELUS» ETCe 


RULE 41 1s USED. TO DEFINE THE BLOCKS WHICH ARE OWNED BY THIS 
. BLOCKs AND TO DEFINE THE ARGUMENTS, IF ANY, WHICH ARE USED IN 
“ REFERENCING THOSE BLOCKS. THRE <TYPE NAME> IS THE NAME OF A. 
BLOCK AND THE NAME OF A RECORD tTyPE wHOSE STRUCTURE IS GIVEN 

BY THE <LINK DECL>e« WHEN SUCH a BLOCK IS REFERENCEDs THE 

—- ARGUMENT MUST BE A RECORD OF THay TYPEe6 | 


IN RULES 40 AND 41, IF THE <IDENTIFIER> AFTER THE 'END! DOES NOT 
MATCH THAT IN THE <TYPE NAME> A WARNING MESSAGE RESULTS. | | 


RULE 42 DEFINES THE <TYPE NAME> aS CORRESPONDING TO A SET OF 
NAMED VALUES LISTED IN THE <SCALARD>* A DATA ITEM DECLARED 
70 BE OF TYPE <TYPE NAME> RANGES OVER THAT SET OF VALUES. 
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ea <LINK DECL> 3! 


57 <CHARMAP DEF t= Cau 


PROCEDURE LINK 


Se er 


45 <LINK> $$ 

46% TASK LINK |. 

47 * TASK OVERLAY 

48 » - PROCEDURE OVERLay 


IN THE CURRENT IMPLEMENTATION» [NS]}ANCES OF 47 AND 48 WILL 


BE INTERPRETED aS IF THEY WERE 4& AND 45 RESPECTIVELY® 
. SUPPORT FOR OVERLAYS IS A DEFERRED FEATURE. FUR THIS IMPLEM= 


ENTATIONs AN INSTANCE OF 46 GUTSIDE OF A CONTEXT BLOCK WILL 


i CAUSE nn ERROR MESSAGE. 


= <VAR DECL LST> <ASS[@N@® <VAR DECL LST> 
«50 ! <VAR DECL LST> . 
“54 | ! <ASSIGNS> <vak DEG 
| ! LIKE <IDENTIFIER> 
! <EMPTY> _ 


ATION 1S SUBSEQUENTLY 
FIELD OF THE ARGUMENT RECORD | 
40 NAME FOLLUWS THE 'aSSIGNS! 


WHEN THE BLOCK NAMED IN THE LINK gets 
COMPILEDs ASSIGNMENT OF A VALUE @ 
wILL CAUSE AN ERROR UNLESS THAT 
WITHIN THE LINK DECLARATIONe . 
RULE 52 HAS THE eae OF ogee 


IN INVOKING THIS BLOCK. : 


THE SYNTAX OF THE DEFINETION OF a CHARMAP JS NOT CONVENIENTLY 
EXPRESSIBLE IN A CONTEXT*FREE GRAMMAR» SO THE KECUGNITION OF 


“THIS RESERVED WORD CAUSES CONTROL TO PASS TO A SPECIAL SCANNER 


WHICH COMPLETELY ANALYZES THE CHaRMAP DEFINITIONS? 


AN INCOMPLETE SYNTAX FOR THE CHarmaP DEFINITION IS! 
© <CHARMAP. DEF> $t= CHARNAP <MAPDEF LIST> 


 <napver LIST> tis <MAPDEFD> 


1 <MAPDEF LIST> <MaPDEF> 


| <MAPOEF> ¢ t= <IDENTIFIER> = (Map LISTD) 


<MaP LIST> tte <MAP TERM> 


! <mMAP LIST> <MAP TERM> 


mies msi A NAME <IlpeENTIFIER> wITH A FUNCTION 
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WHICH MAPS A ONE@CHARACTER ARGUMENT INTO A SMALL NON@NEGATIVE 

INTEGERe THE MAPPING IS DEFINED By GIVING A SEQUENCE OF 

CHARACTER GROUPS. EACH CHARACTER IN A GROUP MAPS INTO THE 

THE SAME INTEGER VALUEs AND CHARACTERS IN SUCCESSIVE GROUPS 

MAP INTO SUCCESSIVE INTEGER VALUES, BEGINNING WITH ZEROe IF 2 

"A. CHARACTER APPEARS IN MORE THAN ONE GROUP AN ERROR | ; 

MESSAGE RESULTS» AND THE SECOND aPPEARANCE OF THE CHARACTER IS 
IGNORED» , | 


‘ THE RECOGNITION OF <MAP TERM> IS BEST DESCRIBED IN “WORDS! 

_ DEBUG CONTROLS ARE RECOGNIZED AND TREATED NORMALLY* INSTANCES 
OF <NUMBER> ARE IGNORED. THE FIRST CHARA 
THE COLONs "ote ANY OTHER CONSTRUCT CA URE 
EXCEPT THE APPEARANCE OF THE PARENTHESH®. 
THIS INSTANCE OF <MAPDEF>+ IF xo ERRORS 


BR OF A <MAPTERND> IS 
“BN ERROR, 
MECH TERMINATES 
Have OCCURREOs THE CuriPILER 
MY RRECEDING THE '3'y GIVING 
THE SEQUENCE NUMBER (AND HENCE THE MAGE) OF THE 
CHARACTER GROUP WHICH FOLLOWS» £o.N UME 
AND MAY NOT EXCEED 2556. 
THE CHARACTER GROUP IS RECOGNIZ 
CHARACTER AFTER THE '3' 4 IF J@ 
SEE IF IT PLUS THE NEXT FOUR 
MOTHER! « IF SO, THE CHARAG 
BE ALL CHARACTERS NOT SPEC 
—  €MAP LIST>» IN ALL OTHES 
'3t YS TREATED as A VEL 
DELIMITER AND PRECEDI 


ETTER 101s CAUSES A TEST TO 
RACTERS FORM THE RESERVED wORD 
L GROUP OF THIS <MAP TERM> IS TO 
MeD TN SOME OTHER TERM OF THIS 
\: BS, THE FIRST NON#BLANK AFTER THE 
ERe alt CHARACTERS FOLLOWING THAT 
PNEXT APPEARANCE QF THAT DELIMITER 
FORM THE CHARACTER GR@ THIS <mMAP TERM>* THE CHARACTER 
GROUP MAY BE EMPTYs AS THE CASE '//'e THE SEARCH FOR 
THE DELIMITER IS SATISFYED BY EnbeOFeLINEs HOWEVER AN ERROR 
MESSAGE IS GENERATED IN THIS CASE~« IF NO NON@BLANK IS FOUND TO 
THE RIGHT OF THE COLON IN THAT [nPUT LINEs THE SEARCH FOR A 
DELIMITER TERMINATES AND THE CHaracTER GROUP IS TAKEN TO BE 
EMPTY» ONCE THE CHARACTER GROUP HaS BEEN 
. IDENTIFIEDs, THE SUBSEQUENT TEXT 1S SCANNED AS ABUVEs SEARCHING 
FOR ANOTHER <MAPTERM> OR THE PARENTHESIS WHICH TERMINATES THE 
. SMAPDEF>>+ NOTE THAT THIS TERMINaTOR IS NOT RECOGNIZED AS SUCH 
TF IT APPEARS WITHIN A CHARACTER GROUPs SOME OTHER CONSTRUCT» OR 
A EOE EN TS : | | | 
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mrs -<CONST DECL> ti* <CUNSTANT> <cON DECL LST> 


ANY EXECUTABLE. STATEMENT WHICH ASSIGNS A VALUE TO A CONSTANT 
vate. et WILL CAUSE AN ERROR MessaGEe 


70 * <FLAG DECL> : as <FLAG> <FLaG DESCRIP> 
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7108 — KFLAG DECL> <FLAG DESCRIP> 
72 * <FLAG> Ste FLAG 
730% <FLAG DESCRIP> i= <IDENTIFIER LST> <CHECK SPEC> 


-SUPPORT FOR FLAGS IS A DEFERRED FEATUREe INSTANCES OF ANY 
OF 70 THROUGH 73 WILL BE IGNORED, AND AN ERROR WILL 


RESULT. 
74 <VALUE LST> $3 <VALUE GEN> 
| 75. | >; <VALUE LST> , <VALUE <Gtt 


Pe DATA ITEM BEING 
VALUE IS ASSIGNED 
"OF THE ARRAY, AN 
ue IS _ 

MTS ARE TO ARRAY ITEMS 


. MORE THAN ONE VALUE IS PERMISSIBLE ONLYgQT 
DECLARED IS AN ARRAYe IN THE EVENT THORge 
TO A SUBSCRIPT WHICH EXCEEDS THE py Mel 
ERROR MESSAGE RESULTS» AND THE ILLE 
-IGNORED> IN A LIST OF VALUES» a 
IN SUBSCRIPT ORDERs FIRST VALUE | 
NEXT TO SUBSCRIPT 14 AND SO ONs 
THROUGH THE USE OF A "RANGE" Ce 
LISTED VALUES FOLLOWING A “"RARG 
SUCCESSIVE SUBSCRIPT VALUES 2&& 
ASSIGNED TO «RANGE")e 


ORNER MAY BE OVER@RIDDEN 
(SEE RULE 77). INDIVIDUAL 
LAUSE ARE ASSIGNED TQ 
NG WITH 1+4(L AST VALUE 
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76 <VALUE GEND 3: 


FOR THIS DEFINITIUN ARE? 


THE LIMITATIONS ON <E@MHES | | 
RIMARY> ARE NOT ALLOWED? 'RANGE's 1 ALL'S 


THE FOLLOWING FORMS OF" 
'EMPTY'» AND tFLAGVAL te? 
ONLY IF JT REFERS TO A PREVIOUSLY DEFINED CONSTANI OR PRESET 
DATA ITEM» OR TO A PREVIOUSLY DEFINED CHARMAP FUNCTIUN® (SEE 
SEMANTICSs RULE 228)¢ <PARAM IDENTIFIER> TS ALLOWED AS A PRIMARY 
ONLY IF THAT IDENTIFIER HAS KEEN PREVIQUSLY DEFINEDe — 
- ANY INSTANCE OF <EXPRES> WITHIN «a PRIMARY IS SUBJECT TO THE SAME 
~- RESTRICTIONS ON PRIMARIES* 


THE <EXPRES> MUST EVALUATE TO An INTEGER OR STRING VALUE? 
- IN ADDITIONs THE TYPE OF THE <ExPRES> MUST BE COMPATIBLE wITh 
THE TYPE OF THE DATA ITEM BEING GIVEN A VALUE (SEE SEMANTICS» RULES 
--463"5)) WHICH HENCE MAY NOT BE oF RECORD, POWERSET OR SCALAR TYPE e 
TF THE RESULTING VALUE OF THE ExPRESSION EXCEEDS THe 
SIZE SPECIFIED BY THE <PGQUALIF> (SEE RULES 662908101)» AN ERROR 
- MESSAGE RESULTS» OR A WARNING MESSAGE IN THE CASE OF STRING DATAs 
WHICH IS TRUNCATED ON THE RIGHT 10 FIT THE DECLARED SIZE. 


) rr —$ RANGE PART> <RANGE LIST> 3 <EXPRES> 
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LIMITATIONS ON <EXPRES> FOR THIS DEFINITION ARE THe SAME AS 7 
THOSE FOR 76 EXCEPT THAT 'RANGE?t 1S ALSO AN ADMISSIBLE PRIMARY. 
THE MEANING OF *RANGE" IS THAT ITS VALUE SPECIFIES A SUBSCRIPT " 
VALUE FOR THE ARRAYs TO WHICH THaT VALUE OF THE <EXPRES> IS TO 
- BE ASSIGNEDs JF A MORE THAN ONE ASSIGNMENT IS MADE TO THE SAME 
_s SUBSCRIPT VALUE», AN ERROR IS GENERATED AND THE LAST SPECIFIED © 
ASSIGNMENT IS MADEs 


82 <VALUE PART> ti= <EXPRES> 
83 ! <0 TO> <ExPRES> <STEP PART> 
| 84 | ! <EXPRES> <TO> <EXPREG2 <STEP PART> 
85 <O TO> ti= TO 
86  -<TO> tte TO 
87. <STEP PART> ii <STEP> <EXpREg™ 
88 ! <EMPTY> 
THE LIMITATIONS ON <EXPRES> F HEE DEFINITIONS DEPENL UPON 


WHERE IN THE SOURCE CODE THEY 
MUST EVALUATE TO A NON@NE GARG 
OF THE PRIMARIES <NUMBER> 
'FLAGVALt« <PARAM IDENT 
HAS PREVIOUSLY BEEN ASS 
SECTION, THE EXPRESSION 
AND HENCE ANY <STORE 2 
OR CONSTANT DATA ITEM 
A PRIMARY ARE SUBJECT 
CONTAINING EXPRESSION» | . 
IN 82 ONE VALUE JS GENERATED» THAT GIVEN BY THE EXPRESSIONe 
IN 83 AND 84 A SEQUENCE OF VALUES 1S GENERATEDs BEGINNING wITh 
- ZERO IN THE CASE OF 83% OR THE vat_UE OF THE FIRST <EXPRES> IN 
B4e SUCCESSIVE VALUES ARE DERTvFD FROM THE PREVIOUS VALUE BY 
-. ADDING TO IT THE VALUE OF THE <EXPRES> IN CASE &79 OR THE VALUE 
4 IN CASE 88 UNTIL A VALUE GREATER THAN THAT OF THE <EXPRES> 
>. PRECEDING THE <STEP PART> IS OBYTAINEDe THIS VALUE 18, DISCARDED 
oa AND THE SEQUENCE IS COMPLETE. om | 


i IN ANY CASE» THE EXPRESSION 

NTEGER, AND MAY NOT CONTAIN ANY. 

NRING>»s 'RANGEts TALL I TEMPTY! OR 

1S ALLOWED ONLY IF THAT PARAMETER 

A VALUEe WITHIN THE DECLARATION © | 

Be FULLY EVALUATABLE AT COMPILE TIMEs. 

ST BE TO A PREVIOUSLY DECLARED PRESET © 

BS USUAL, ANY INSTANCES OF <EXPRES> WITHI' 
THE SAme RESTRICTIONS ON PRIMARIES AS THE 


| 90, <VAR DESCRIP> $3= <IDENTIF JER LST> <TCOLUN> <TYPED> <CHECK Shere: 


EACH OF THE IDENTIFIERS IN THE <IDENTIFIER LST> IS DECLARED Tu 
BE A DATA ITEM OF THE PRET ERE TYPEe 


agd: <SIMPLE TYPE> Ii= <IDENTIFIER> 
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CIDENTIFIERD>. MUST BE DEFINED AS A TYPE IN THIS OR A HIGHER: 
LEVEL BLOCK e | | 


94 = { INT <PQUALIF> 


_ sWALUES IS 0 TO Ny WHERE N IS THE VALUE OF THE <PQUALIF>.» IF 
A VALUE OUTSIDE THIS RANGE IS ASSIGNED TO THE VARIABLES THE 
RUN@TIME RESULTS ARE UNDEFINEDe IF AN OUT@UF*RANGE VALUE 
IS ASSIGNED TO SUCH AN ITEM AT COMPILE TIME (WITHIN A PRESET 
OR CONSTANT DECLARATION) AN ERROR MESSAGE RESULTS? | 
THE MAXIMUM ALLOWED VALUE OF N IS 92999s9992999* LARGER VALUES __- 
| WILL CAUSE AN ERROR MESSAGE. nh & | ) 


95 | oY SINT <PQUALIF>4 


BLE OF TYPE INT wITH 
Weere VALUES IS FROM 
DE THIS RANGE CAUSE 


IME, OR UNDEFINED 


A VARIABLE OF TYPE SINT IS LIKE A 
AN ALGEBRAIC SIGNe ITS RANGE Of 
=N TO Ne ASSIGNMENTS OF VALUES. 
AN ERROR MESSAGE IF MADE AT CONR 
RESULTS IF MADE AT RUN TIME® 
THE MAXIMUM ALLOWED VALUE OFZ 
WILL CAUSE AN ERROR MESSAGE 


LGe9 9999499909998 LARGER VALUES 


96 | 3 : M. SPQUALIF> 
‘A DATA ITEM OF TYPE STRTW@.1S A SEQUENCE OF N CHARACTERS OF 
THE SINGLE CHARACTER 4@Bqy “WHERE ph 1S THE VALUE OF <PQUALIF>- 
ASSIGNMENT TO SUCH A 4 ABLE OF FEWER THAN N CHARACTERS CaAuSteS 
THOSE CHARACTERS TO BEC REFT ADJUSTED IN THE VARIABLEs WITH 
BLANKS ADDED ON THE RIGHT TO Flite ASSIGNMENT OF MORE THAN NN. 
CHARACTERS CAUSES ONLY THE LEFTemosT N CHARACTERS TO BE PLACED 
IN THE VARIABLE; IF THE ASSIGNMENT IS MADE AT COMPILE TIME 4 
WARNING MESSAGE RESULTS. : 
THE MAXIMUM ALLOWED VALUE OF N IS 100+8 LARGER VALUES WILL CAUSE 
AN ERROR | MESSAGE. | | | 


oe = ee ! INDEX <FAKE ARROW> <IDENTIFIERD> 


A DATA ITEM OF TYPE INDEX @> <IDENTIFIERD> IS PERMISSIBLE ONLY 

EF THE <IDENTIFIERD> IS DECLARED JN THIS OR A HIGHER LEVEL BLOCK 

~ AS AN ARRAY <PQUALIF> OF SOME Type. THE INDEX ITEM IS EGUIV= 
ALENT TO-AN ITEM OF TYPE INT <PQUuALIF>s EXCEPT THAT ARRAY | _ 

- REFERENCES WILL BE EXECUTED MORE EFFICIENTLY USING THE INDEX 

ITEM: THAN USING AN INT TYPE ITEM aS THE SUBSCRIPT® 


98 7 ie ae * POWERSET OF <IDENTIFIER> 
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USE OF OUT*OF*RANGE SUBSCRIPTS at RU 


(108 «= <SPEC ITEM> !:= <IDE 


AN ITEM OF TYPE POWERSET 1s PERMISSIBLE IF THE <IDENTIFIERD 

IS DEFINED AS A SCALAR TYPE IN THIS OR A HIGHER LEVEL BLOCKe 

THE MAXIMUM NUMBER OF COMPONENTS of THE SCALAR TYPE IS toe IF 

THIS IS EXCEEDED AN ERROR RESULTS. A POWERSET DATA 

ITEM HAS VALUES WHICH ARE SUBSETS OF THE SET UF ALL POSSIBLE 
-- VALUES OF THE SCALAR TYPE* THUS JF THE SCALAR HAS N VALUES 
THE POWERSET REQUIRES N BINARY DIGITS TO REPRESENT ITS VALUES® 


100 <KARRAY TYPED ¢:® ARRAYCPQUAL JF O<KOFS<K<SIMPLE TYPED 


THE VALUEsNs OF <PQUALIF> INDICATES THAT 
‘(N#1 ITEMS» EACH OF THE SAME <SImPLE TYP 
ITEMS ARE REFERENCED BY SUBSCRIPTING 


| CAUSES UNDEFINED 
“RESULTS« 
104 <PQUALIF> t3= <LEFT SS> <Exj RIGHT SS> 


THE LIMITS ON <EXPRES> FOR THIS. 
AS THOSE FOR Be: 879 WITHIN The 


PNITION ARE THE SAME 
NITIONS AND DECLARATIONS-+ 


We IDENTIFIER ARE FseSsts» AND Uso 
9E CROSSeREFERENCING OF ACTIONS 

Re LUCK, OR UNLOCK OF THE DATA ITEMe 
Me ONLY FOR FLAG ITEMS» AND ARE NOT 
IMPLEMENTATION. 


THE ONLY ADMISSIBLE VAL 
THESE REPRESENT. COMPILE 
WHICH CAUSE A FETCHs ; 
-L AND U ARE MEANINGI 

SUPPORTED IN THE CURRE®) 


‘Ate <SUBROUTINE DEF> Si= <SUB HEAD> <XEQ STAT LSI>— 


ANY SUBROUTINE. DEFINITIONS IMMEDLTATELY PRECEDE THE ACTIONS OF 
THE BLOCKe NOTE THAT THESE SUBROUTINES HAVE NO ARGUMENTSe THEY 
ARE INVOKED BY THE 'DO' STATEMENT (SEE 139)* CONTROL RETURNS 
TO THE ACTION FOLLOWING THE 'OO! wHEN THE SUBROUTINE EXECUTES A 
(RETURN! STATEMENT OR COMPLETES THE ACTION IMMEDIATELY PRECEDING 


THE TEND! WHICH TERMINATES ITS QEFINITIONe THE DEFINITION OF 


A. SUBROUTINE HAS EFFECT ONLY WITHIN. THE BLOCK IN WHICH IT IS 


DEFINED» AND THE SUBROUTINE CANNOT BE REFERENCED FROM ANY | 
g OUMER BLOCK+ | : 


414 “KEG STAT LST> tts <XEQ Stags. | 
115 : : $ <xEG STAT LST> <KeS STAT> 


WHEN CONTROL IS PASSED TO AN <xEQg STAT LST>s EXECUILON BEGINS 


WITH THE FIRST STATEMENT.» CONTROL FLOWS FROM ONE STATEMENT TO 
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THE NEXT IN THE LIST UNLESS. EXECUTING A STATEMENT CAUSES CONTROL 
TO BE TRANSFERRED: IN SOME OTHER MANNE Re 


IN ALL EXECUTABLE STATEMENTS, THE RESTRICTIONS ON <EXPRES> ARE THAL 
<NUMBER>»s "RANGE t,AND <QSTRING> arE NOT ALLOWED AS PRIMARIES» AND A 
SIMILAR RESTRICTION APPLIES TO any INSTANCE OF <KEXPRES> WITHIN AN 
-- ADMISSIBLE <PRIMARY>+ FOR OTHER GENERAL RULES ON EXPRESSIONS SEE 
THE SEMANTICS FOR RULES 220 Ele SEG*e CERTAIN INSTANCES OF <EXPRESD. 
WITHIN EXECUTABLE STATEMENTS MAy HAVE ADDITIONAL RESTRICTIONS» IN 
.. WHICH CASE THE SEMANTICS FOR THat CONSTRUCT CITE THE ADDITIONAL 


-RESTRICTIONSe 
oe <GROUP NUMBER> !i= <NUMBER> : 
aig 2 


GSTATEMENT IS Ny THEN 
NE WHICH IS EXECUTED. 
RM 1S IGNORED>+ A NUMBER 
AB STAT LST> AND THIS 
E MAXIMU™ PERMISSIBLE 


CLF THE VALUE OF THE <EXPRES> IN THE 
STATEMENT WITH GROUP NUMBER N IS) Tp 
(SEE 208% 116:117)+ ON INPUT» a 

YS CALCULATED FROM POSITION IN 
NUMBER IS INSERTED IN THE OUTP 
GROUP NUMBER IS 9996 


128 «(<SIMPLE XEQ>)  ! REC IBROUP NAME> 3 
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. | IF THE <GROUP NAME> IS & 
J PRECEDING ‘CYCLE! STATE 

: - THE NEAREST PRECEDING ! 
IF THE INDICATED 'CY@) 


» CONTROL PASSES TO THE NEAREST 
OTHERWISE CONTROL PASSES TQ 

E' STATEMENT WITH THAT <GROUP NAME>« 
ES Nor EXIST AN ERROR RESULTS. 


leg 


AVE <GRQUP NAMED 3 


IF <GROUP NAME> IS EMPTY, CONTROL PASSES TO THE FIRST ACTION 

PAST THE NEAREST FOLLOWING 'ENUt oR 'NEXTt. OUTHERWISE CONTROL 
PASSES TO THE FIRST ACTION PAST THE 'END! OR 'NEXT! WHICH 
TERMINATES THE 'BEGIN' OR 'CYCLE! HAVING THAT <GROUUP NAME>. 

IF THE INDICATED POINT DOES NOT EXIST AN ERROR RESULTS. 


~ 130 


= * ! START <IVENTIFIER> <PARAMS> | 
431 *. ! START <IDENTIFIER> <PARAMS> <SOR> <BAL STAT> 
132 * ! DEFER <IDENTIFIER> <PARAMS> 
433 * ! WAIT <IDENTIFIER> <EVENT> 
~ 134 * ! SET <IDENTIFIER> <SET TO> <EXPRES> 
- 435 « ! LOCK <IVENTIFIERD 
136 * * UNLOCK <IDENTIFIERD 
137 ¥*. { LOCK <IDVENTIFIER> <LOR> <BAL STATD> 
* ! UNLOCK <IDENTIFIER> <LORD> BAL STATD>. 


138 
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Say _ 7 ! RETURN 


142 + 


hive ¥ 


“146 + 


‘ALL OF THE ABOVE ARE IGNORED IF FOUNDe AN ERROR RESULTS» 
THESE ALL REPRESENT FEATURES NOT SUPPORTED IN THE CURRENT 
IMPLEMENTATION® 


139 | eo * DO <IDENTIFIERD 


EXECUTING THIS STATEMENT CAUSES CONTROL TO PASS TU THE 
SUBROUTINE WITH THAT <IDENTIFIER>. IF SUCH A SUBROUTINE HAS 


NOT BEEN DEFINED WITHIN THAT BLocK AN ERROR MESSAGE RESULTS. | 


140 — ! CALL <IDENTIFIER> <PARAMS> 


EXECUTING THIS STATEMENT CAUSES CONTROL gO RASS TO THE 
PROCEDURE HAVING THAT <IDENTIFIER>. ~pROCEDURE MUST BE 
“QIRECTLY SUBORDINATE TO A BLOCK wHOSE@Rg@pOPE INCLUDES THE 
-CALLING PROGRAMe THE CALLING PROGRA@® PE NOT BE THE 
PROCEDURE CALLED NOR SUBORDINATE Tg ‘VIOLATION OF THESE 
RULES CAUSES AN ERROR MESSAGE e = | 


EXECUTING THIS STATEMENT CAU: EeNTROL TO RETURN TO THE 
PROGRAM WHICH INVOKED THIS it 


CAUSES AN ERROR. 


‘ TS POSSIBLE ONLY FOR A TASKs AND 
CAUSES TERMINATION OF{ @arRT TASK, UNDER THE CURRENT IMPLEMENT® 
ATION THE ONLY TASK ISUWHE HIGHEST LEVEL PROGRAMe OCCURRENCE 

OF A 'STOP! WITHIN A PROCEDURE CAUSES AN ERROUR« 


EXECUTING THIS STATEM 


143 cae ! Pass 


THIS EXECUTABLE STATEMENT PERFURMS NO ACTIONe CONTROL FLOWS 
DIRECTLY THROUGH ITe* IT IS USEN WHERE THE SYNTAX CALLS FOR 

AN EXECUTABLE STATEMENT BUT NO acTION IS CEsEneY Ay THAT POINT. 
AS MIGHT HAPPEN IN A 'CASE! STATEMENT 


a © <ENABLE> <— XPRES> 
45 we ! <DISABLE> <ExPRES> 
| ! TRANSFER KIDENTIFIERD <PARAMS > 


THESE. ARE. NOT SUPPORTED ‘IN THE CURRENT IMPLEMENTATIONs AND 
WILL CAUSE AN ERROR® 


147 | oo | Ine <IG PaRAMS> 


Cm) oS © 


AM OR SUBROUTINEe OCCURRENCE OF | 
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- A ! NEXT 37 1 SHEET 


eK KR KKK KR KR KR RR KR RK RRR KK KEK KKK KK KR KK RRR KKK RK KKK KK KR KK KK KK 


ae eee tes owernnaen am ="? a De TD HE ee Ee ae SOS ae ee OO ee a me wo =" sey wean Se aP ee on =o ee mM 

$ INGER 2! SINGLE EXTERNAL | SHEET : KO1 
BUSINESS 
MACHINE § 


¥ 


36 ¥* 


fm ene a me ae we 2 ay omen = a seen 2 an ae oe oe land Gwe ae wm 8 Be we wey BH Om Dar ee eee oe ae oe a So me == om wy 


ta ae Suh towdsate Neat : ian a ie AA ER ek Pai ea ante 2, er ae SCREEN ern eae ie eT een 
Lack safe be el Be Weng ict onto ei SA ah cml ken enti AU ii dabbl nubs reteh heath lao RS SRSA Tin ae at RR NiCad 


. va = am aera Se @e Gea Ge Se wm -— = Cn Ge Se we islam Re ee ww we 88 Be we we SH ae OO STE Oe Ce ae wae mo a oom om oe mo wy 
¥ ; : | : oe, 
x = i 


e 
a 


148 7 | ! OUT <IO PARAMS> 
THESE STATEMENTS MAP INTO SYSTEM TEN IN AND OUT INSTRUCTIONS+ 


1490 . .  -$ STATUS <SToRE REF> 
‘150 4 a ! STATUS <S1GRE REF> » <STORE REFS 


ONLY DEFINITION 149 IS ALLOWFUD IN THE CURRENT IMPLEMENTATION® 
THE FORM OF 150 1S EXPECTED TO KE USED FOR SYSTEM ELEVENe The 
-. STATUS STATEMENT CREATES A NUMERTC VALUE FOR THE CURRENT SYSTEM 
TEN CONDITION CODEs AND ASSIGNS THAT VALUE TO THE <STORE REF>» 
“WHICH MUST BE OF TYPE INT OR SINT. TH UES ARE DETERMINED AS 
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FOLLOWS: 
STATUS VALUE — CONDITION CO R PREVIOUS INSTRUCTION) 

0 

1 

2 

a 

4 

6 
156 <I10 PARAMS> 3:32 PEF > <PARM C> <EXPRES> <PARM C> 
157 * REF > <PARM C> <EXPRES> <PARM c> 


S> 2 <STORE REFD> 


DEFINITION 157 IS NOT? @ELOWED IN THE CURRENT IMPLEMENTATION® IT 
IS EXPECTED TO BE USED™FOR SYSTEM ELEVENe IN DEFINITION 156% THE 
<STORE REF> MUST BE TO A STRING QR SUBSTRING OF LENGTH AT MOST 
100* THE FIRST <EXPRES> MUST EVALUATE TO A NON®NEGATIVE INTEGER 
NO GREATER THAN 9e THE SECOND <EXPRES> MUST EVALUATE TO, A NOWN®@ 
NEGATIVE INTEGER NO GREATER THAN 74 THE STATEMENTS 7 


INP As BoC 
| ~~ OUT As Bo 
«GENERATE INSTRUCTIONS EQUIVALENT To (ASSEMBLER 11 FORM) 
R X(Y)ab $Xx(Z) 
OW KCY) ab sx(Z) 


WHERE. x 1g THE ADDRESS OF THE STRING OR SUBSTRING AND Lx ie Its 
LENGTH» Y Is THE VALUE OF TRE EXPRESSION Bs AND 2 IS THE VALUE - 
OF THE EXPRESSION Ce | 3 a 
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159  <PARAMS> t= ( <STORE REF> ) 
160 1 <EMPTY> 


THE <STORE REF>»s IF PRESENT» MUST BE TO A DATA ITEM WHUSE | 
TYPE IS <IDENTIFIER>s WHERE THE wamMeE OF THE PROGRAM INVOKED 7 
JS ALSO <IDENTIFIER>+ IF NOTs an ERROR MESSAGE RESULTS. 
THE "LINK! DEFINITION FOR THE PROGRAM ALSO CAUSES A 'RECORD! 
TYPE OF THE SAME NAME TO BE DECLAREDs SO THAT ARGUMENTS MAY 
BE PASSED TO THE PROGRAM BY REFERENCING A “Daye RECORD OF THAT 
EMER. om 


164 * <EVENT> $i=# <CONDITION> 
a + ! FINISH <IDENTIFIER> 


“THESE ARE NOT SUPPORTED IN THE CURRENES 


463 <REP STAT> s:32 <STORE LST> <REP 
| aoe 1 INCR <STORE _34 
165 | ' DECR <STORE gi 


THESE ARE THE MAIN ACTIONS WHILGH 

AT RUN TIME*+ ALL SUCH ASSIGWNP 
FOR COMPATIBILITY OF TYPE, 
ITEM MUST BE COMPATIBLE wJ 
WARNING OR EenOn Neceace 


| ARE CHECKED AT COMPILE TIMe 
¥: THE TYPE OF THE SOURCE | 
AT OF THE RECEIVING ITEMs OR A 
WLTS. COMPATIA@LE TYPES FOR A GIVEN 
Y BELOWe IN THIS TABULATION, N 
INSTANCES OF <PQUALIF>s WITH MK=Ne 
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MALE TYPES 


. SSeS 
Ae 


INT CN) 7 INTEM]s INDEX@>A (ALARRAY(M] UF eee) 


INDEX=> (ARRAY (NI) 
INT CM)» INDE xm >( ARRAYEM] ) 


SINTON) = — INTEM3 SINT EM), INDEX=> (ARRAY EM] ) 


STRINGCIN] | STRINGEM) (IN THIS INSTANCEs IF MON AT 
| » ae | RUN TIME THE RESULT IS DEFINED: 
THE RECEIVING STRING IS FILLED TO ITS 

CAPACITY WITH CHARACTERS OF THE SOURCE 
STRING STARTING FROM THE LeEFI@=MOST © 
POSITION®e IF M < Ny THE RESULT IS AS It 
THE SOURCE STRING WERE EXTENDED ON THE 
RIGHT BY Nem RLANK CHARACTERS® 


SCALAR W ——t—é« SCALAR 
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OF THE RECEIVING ITEM+ IF THE souRCEdt 


167 <BY PART> tte 
q 


POWERSET OF X  POWERSET OF x, SCALAR X (IN THE LATTER CASE 


THE SCALAR IS CONVERTED 10 © 


A POWERSET CONSISTING OF 
THAT ONE SCALAR VALUE). 


ARRAYCN] OF Y ° ARRAY(N) OF Z (TYPE OF Z COMPATIBLE WITH THAT. 


. OF Y)e 
R (A <RECORD>D 
TYPE) | R 


M>N»s THE COMPILER 

BT THE PROGRAM CAN. 
BIHIN THE RANGE 

fv is NOT WITHIN THE 


IF THE TYPES ARE INCOMPATIBLE ONLY IN THA 
GENERATES A WARNING MESSAGEs ANY) ASSUMES 
GUARANTEE THAT THE SOURCE ITEM IS IN Fag 


—- RANGE OF THE RECEIVING. ITEM AT RuN Tene 
EXCEPT IN THE CASE OF STRING ITEM 7 


IN THE CASE OF STRING ASSIGNMENR 
STRING OVERLAP BY VIRTUE OF CUN®, 
LARGER STRING?” THE RESULTS OF 


THE INCR AND ‘DECR FORMS AR Gey | 
(INTs SINTs OR INDEX)» ANG. 
INCREMENTED OR DECREMEN 
<BY PART>. ‘ 


FUSE THE DATA ITE™ TO BE 


168 


THE <EXPRES> IS THE VALUE BY WHICH THE ITEM 1S TO BE INCREMENTED 
OR DECREMENTEDe %IN THE SECOND GF THESE CASESs A VALUE OF 1 I5 
IMPLIED® | 7 3 . of . 


170 <STORE LST> 282 <STCRE FPEFD> 
“471 | ' 


<STOGRE LST> , <STORE REF> — 


THE APPEARANCE OF A LIST OF ITEMS aS RECEIVING ITEMS MEANS 
THAT THE SAME VALUE IS ASSIGNED TO EACH OF THE RECEIVING ITEMSs 


7% — KVAR REF> 33% <VARD 


<VAR> <LEFT SS> <EXPRES> <RIGHT SS> 


THE SECOND OF THESE IS THE FORM FuR REFERENCING ELEMENTS OF 
ARRAYSe THE <VAR> MUST NAME Aw ARRAY TYPE DATA-ITEMs AND THe 
<EXPRES> MUST BE OF TYPE INT UR [NDEX*® QUT*OF*RANGE VALUES OF 


THE EXPRESSION WILL YIELD eres RESULTS® | 


D ONLY FOR ITEMS UF NUMERIC TYPE 
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176 <VAR>D 73m <IDENTIF TERS 
177 | LO 


THE SECOND se tueee IS THE FORM FOR REFERENCING THE RECORD 

WHICH WAS SPECIFIED AS THE ARGUMENT FOR THIS BLUCK WHEN IT WAS 
.. INVOKEDe IF THE LINK DECLARATION OF THE PARENT BLOCK DID NOT 
SPECIFY ARGUMENTS FOR THIS BLOCK, AN ERROR RESULTSe 


178 <EXPRES PAIR> $35 <EXPRES PAIk (><EXPRES> <EXPRES PAIR C> 
: <EXPRES> ) 
<EXPRES PAIR (> <feMRES> ) 

<EMPTY> 4 


179. 
10 


THE FIRST TWO OF THESE ARE TRE FORMS 4 
“THE <VAR REF> MUST NAME AN ITEM of TYpe 
EXPRESSIONS MUST BE OF TYPE INT GRead 
INTERPRETED AS THE POSITION WITH] 
CHARACTER OF THE SUBSTRINGs AND gP 
SUBSTRINGs RESPECTIVELYe POSIT! 
MOST CHARACTERe IN THE SECONSRS 
LENGTH OF THE. SUBSTRING. 
THE SECOND FORM IS ALSO USB 
“<VAR REF> NAMES A CHARMAP 
THE PARENTHESES MUST Evg 
INSTANCEs THE <STORE RE 
THE MEANING OF THE <S 
THE ONE®@CHARACTER ARG 


PE TRINGe THE TWO 
exe «THEIR VALUES ARE 
EESTRING OF THE LEFTMOST 


Me cHarnar REFERENCESe IF THE 
NTIFIERs THE ONE EXPRESSION WITHIN 

» To A STRING OF LENGTH 1e+* IN THIS 
NOT BE TO THE LEFT UF AN ASSIGNMENT) 
RE REF> 35 THE INTEGER VALUE INTO WHICH 

J IS MapPED UNDER THE NAMED CHARMAP 

IF THE ARGUMENT HAS H GREATER THAN ONEs THE LEFT@=MOST 
CHARACTER OF THE STRIN® IS TAKEN AS THE ARGUMENT» AND IF THE LENGTH 
WAS EVALUATED AT COMPILE TIME A wARNING MESSAGE RESULTS. | 

“IF THE CHARMAP HAS NO IMAGE DEFINED FOR THE ARGUMENT CHARACTER» AN 
ERROR RESULTS IF THE CHARMAP IS EVALUATED AT COMPILE TIME» AND 
UNDEFINED RESULTS QCCUR IF IT IS EVALUATED AT RUN TIMEs 
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“483° CIF STAT> it= SIF PART> <BaL STAT> <ELSE> <BAL STAT>  _ 
384 = <UNBAL IF> ft] <IF PART> <xEey STAT> | 
— 185 | = - } SIF PART> <BaL STAT> <ELSE> CUNBAL IF> 


ON EXECUTING EACH OF THESE STATEMENTS» THE CONDITION IN THE 
IF PART> IS TESTED*® IF THE COmpITION IS TRUE» THE STATEMENT 
FOLLOWING THE <IF PART> IS ExeCutrepe IF IT DOES NOT CAUSE A 
TRANSFER OF CONTROL* THEN UPON COMPLETION OF EXECUTION OF THAT 
STATEMENTs CONTROL PASSES TO IKE NEXT STATEMENT AFTER THE ENTIRE 
IF STAT> OR <UNBAL IF>*e FOR 183 AND 1859 IF THE CONDITION IS © 
FALSEs THE STATEMENT 4FTER Tht <eis&E> IS EXECUTEDs AND CONTROL © 
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OR IF ONE IS OF TYPE SCALAR X Aw 
POWERSET OF Xs IN WHICH CASE THE, 


- 197 <REL OP> 3! 
198 a 
199 
200 
201 — 
202 


PASSES TO THE NEXT STATEMENT UNLESS ALTERED BY THE EXECUTED 
STATEMENT+ 184 IS EQUIVALENT To <IF PART><XEW STAT><ELSE> P 


IF THE CONDITION IS EVALUATABLE aT COMPILE TIME AND THE TwO 
EXPRESSIONS CONTAIN NO PRESETS» THEN THE SELECTION OF STATE= 


~ MENTS TO BE EXECUTED IS MADE AT COMPILE TIMES® 


195 <COND PRIM> :$:= <EXPRES> <REL OP> <EXPRES> 


THE COMPILER VERIFIES THAT THE TwO EXPRESSIONS ARE OF 


COMPARABLE TYPE, OR ELSE GENERATES AN ERROR 
TWO EXPRESSIONS ARE OF COMPARABLE 


TYPE J CH 1S 


NUMERIC (INTs SINTs OR INDEX), 
STRING,» 

POWERSET OF Xz» 

SCALAR Yv» 


BE OTHER IS OF TYPE. 
B..T¥PE SCALAR ITEM IS | 
INTERPRETED AS A POWERSET IT my PHE SET CONSISTING OF ONLY 
THAT SCALAR VALUE)-« 2 ' 


eh O02 OD O@ 48 i | 


IN THE CASE QF NUMERIC COMPARISONS THE OPERATORS HAVE THE 
OBVIOUS MEANINGS.e IN THE CASE oF STRING COMPARISONS THE 
NORMAL CONVENTIONS APPLY$ THE SHORTER OF THE Pwo STRINGS Is. 
CONCEPTUALLY LENTHENED TO EQUAL THE LENGTH OF THE LONGER BY 


~APPENDING BLANK CHARACTERS ON THE RIGHT. THE MEANING 


OF THE OPERATORS FOR STRING RELATIONS FOLLOWS THE ASCII. 
COLLATING SEQUENCE APPLIED FROM (EFT TO RIGHT® 


FOR SCALAR RELATIONS ONLY TWO OPERATORS ARE PERMITTED» EQUAL 


AND: NOTSEQUAL ¢ FOR POWERSET RELATIONS» THE INTERPRETATIONS 


ot REPRESENT THE SET RELATIONS ake 


PROPERLY CONTAINED», 
PROPERLY CONTAINS» 
EQUAL,» : 
CONTAINS» 
CONTAINED, 

NOT EQUAL» 
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RESPECTIVELY» 


206  <BLOCK STAT> i= <BLOCK HEap> <xE@ STAT LST> END _ 
ea <GROUP NAnED> 3 = : 


. THE BLOCK STATEMENT ALLOWS WHAT wOULD OTHERWISE BE AN 
€XEQ STAT LST> TO BE PERCEIVED By THE SYNTAX PARSER AS ONE 
STATEMENT» SO THAT MULTIPLE ACTIONS MAY BE PERFORMEDs FOR 

-EXAMPLEs ON THE 'ELSE' BRANCH OF aN 'IF! STATEMENTe | 


208 <CASE STAT> ii= <CASE> <EXPRES> <CASE OF> <LAB STAT LST> 
| | END CASE 


THE TYPE OF <EXPRES> MUST BE NUMERTCeg FRT RUN TIME THE 
> VALUE OF <EXPRES> IS LESS THAN ZERO 9FATER THAN THE NUMBER © 
OF STATEMENTS IN THE <LAB STAT UST UNDEFINED RESULTS WILL 
-OCCURe THE VALUE OF <EXPRES> I¢g .TO SELECT THE PARTICULAR 
STATEMENT WITHIN THE LIST WHICH PBE EXECUTEDe UNLESS 
THAT STATEMENT CAUSES A CONTROLS -FRANSFER, UPON COMPLETION OF 
THAT STATEMENT EXECUTION, CONTA LL PASS TO THE STATEMENT 
FOLLOWING THE 'END CASE. | ; VENT THAT THE VALUE OF 
<EXPRES> IS DETERMINABLE AT LE TIMEs AND CONTAINS NO 
PRESET ITEMS, THE SELECT Ode. A BE MADE AT COMPILE TIME. 


LAD><QUALIFIER><xXEG STAT LST > NEXT 
NaME> ¢ 


211 <CYCLE STAT> : 


ie ee ee ee ee ee ee 


LOWING ‘NeXT! DOES NOT MATCH THAT WITHIN 
<CYCLE HEAD> THEN A FING MESSaGE RESULTS* IF NO ERRORS HAVE © 
OCCURREDs, THE <GROUP MAME> FOLLOWING 'NEXT!' IS CHANGED ON OUTPUT 
TO THAT OF THE <GROUP HEAD>+» Wien CONTROL PASSES UUT OF THE 
<XEQ STAT LST> IT RETURNS TO THe TESTING AND INCREMENTATION (IF 
ANY) OF THE <QUALIFIERD. 3 


IF THE <GROUP anes 


216 = SCONTROL PART> ft WHILE <CCNLITION> 
ae WA _< + ! <FOR PART> <RANGE LIST> | 
ete ag *. 4a. ! <EMPTY> 


IN CASE 2175 IF THE RANGE LIST J[S NOT EXHAUSTEDs THE NEXT VALUE 
. OF THE RANGE LIST IS ASSIGNED Tog <1DENTIFIFR>+ IF THE RANGE 
LIST IS EXHAUSTEDs OR IF CASE 216 AND THE <CONDITION> IS NOT 
-.  ERUEs THEN CONTROL PASSES TO THE FIRST STATEMENT AFTER THE. 7 
YNEXT' <GROUP NAME> $ ¢ OTHERWISE CONTROL PASSES TU THE FIRST 
STATEMENT OF THE <XEG STAT LST, 


219 : <FOR PART tie FOR <IDENTIFIER> ¢ = 
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220 CEXPRES> fie 


—6R2R? 
€23 


RESPECTIVELY: | &e | 
- FOR NUMERIC TYPES THE MEANING OF THE OF FATORS "+! AND tet JS 


225 
226 
227 


THE <IDENTIFIER> MUST BE DECLARED TO BE OF TYPE INT.OR INDEX. 


< <TERM> 
eel ft =» <TERMD 
_ ' <EXPRES> + <TERM> 
! <EXPRES> = <TERM> 


ALL TERMS OF AN EXPRESSION MUST HAVE COMPATIBLE TYPE* IF THAT 


TYPE IS INTs SINT» OR INDEXs THE TYPE OF THE EXPRESSION IS 


DETERMINED BY THE TYPE OF THE ITEM TO WHICH THE RESULT IS TO 


” BE ASSIGNED, OR IF NO ASSIGNMENT IS TO RE MADE, THE TYPE OF 
“JHE EXPRESSION IS INTs 


RULE 221 IS THE UNARY MINUS AND 15 VALI ge Ne 


AND POWERSET TERMSs MEANING NEGaTICN LEMENTATION 


THE STANDARD MEANINGe FOR STRING JZ,yPRSs '+' AND "©! REPRESENT 
STRING CONCATENATION AND EXCISIon MECTIVELY* THE MEANING OF 


JHE LATTER IS THAT THE RESULT UO WHERE A AND B ARE STRINGS». 
CONSISTS OF THOSE CHARACTERS OF g MMICH DO NOT FORM THE LEFT= 


FOR POWERSET TYPES, THE OPR : AND '@#!' CORRESPOND TO Set 


UNION AND RELATIVE COMPLEME RESPECTIVELY. 
FOR ALL OTHER TYPES 221,42: ND @23 ARE NOT ALLUWEDs 
224  <TERM> 33s <PRIMAR 
! <TERM> 
! <TERe 
! <TER 


ALL PRIMARIES. IN A TERM MUST BE OF COMPATIBLE TYPEe- FOR 
NUMERIC PRIMARIES THE OPERATORS tata'/!',y AND '\' REPRESENT 
MULTIPLICATIONs DIVISION, AND REMAINDER RESPECTIVELY*® FOR 
STRING PRIMARIES, ONLY ty!’ AND 1\1 ARE ALLOWED AS OPERATORS: 


REPRESENTING HEADER AND TRAILER OPERATIONSe A/B CONSISTS OF 
'- THOSE CHARACTERS OF A WHICH PRECEDE THE LEFT=MOST OCCURRENCE 


OF THE CHARACTERS OF B WITHIN THe STRING Ae A\®8B CONSISTS OF 


-.. THOSE. CHARACTERS OF A WHICH FOLL Ow THE LEFT*MOST OCCURRENCE OF 


THE. CHARACTERS OF B WITHIN THE STRING Ao 


FOR POWERSET PRIMARIES ONLY THE OPERATOR ta! IS ALLOWEDs MEANING 
oer INTERSECTION. : | | 


(228  <PRIMARY> f:= <STORE REF> 
229. Pie 2 ! 


RANGE 


RANGE" IS ALLOWED AS A ERIMARY ONLY WITHIN THE <EXPRES> OF pies 3 


FUR NUMERIC TERMS. 
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¥ ae 
4% 
230 oe <NUMBER> * 
% | ‘ 
x <NUMBER>D IS ALLOWED AS A PRIMARY ONLY WITHIN THE <EXPRES> OF * 
¥ 32 AND 76i77e ° 2 . 
¥ | . eG »* 
¥ 231 $Y SPARAM IDENTIFTERD * 
* a: | | | * 
* <PARAM IDENTIFLER> IS ALLOWED AS a PRIMARY ONLY IF A VALUE HAS * 
¥ BEEN ASSIGNED TO IT IN A DECLARATION PRECEDING THE APPEARANCE + 
¥ _ OF THIS EXPRESSIONs ¥ 
*% * 
* 232 | | 7 <QSTRING> i * 
Pcs ii™ | | < 
* <QSTRING> IS ALLOWED AS a PRIMARY ONLY! N THE <EXPRES> OF + 
* 32 AND 763776 Gg | * 
% .  &® | 
4 239 ! MIN ( <EXPRES> ) + 
* 234 | —  $ MAX ( <EXPRES> ) * 
¥ re - 
+ THE TWO EXPRESSIONS MUST BE OF & RIC TYPE» AND THE RESULT IS ¥ 
¥ OF THE SAME TYPE, BEING THE Sita PAND LARGER OF THE TwO VALUES + 
* OF THE EXPRESSIONS RESPECTIVG m 
5 | * 
4 235 ! ASCII6 * 
bal THIS IS A BUILT@IN CHAR “’THE EXPRESSION MUST EVALUATE TO © ¥ 
* A ONE CHARACTER STRINGe HE RESULT IS THE INTEGER INTO WHICH % 
% THAT CHARACTER MAPSe = 3 7 : a 
ey ¥ 
* 236 rs. H ( <EXPRES>D .)- a 
¥. 237 | 7 ! ( <EXPRES> ) x 
i mare aes | : 
: THESE ARE INTEGER®TO@STRING AND STRING#TO@INTEGER CONVERSIONS ® # 
ae — THE ARGUMENT OF CONVIS MUST EVALUATE TO A NON@NEGATIVE INTEGER® + 
= IF THE ARGUMENT IS FOUND TO BE NEGATIVE» AN ERROR RESULTS AT * 
* COMPILE TIME OR UNDEFINED RESULTS aT RUN TIME® | | ” 
a THE RESULT IS A STRING OF LENGTH THE REQUIRED NUMBER OF DIGITS. ¥ 
* -. THE ARGUMENT OF CONVSI MUST EVALUATE TO A STRINGe THE INTEGER * 
* ~~ VALUE DEFINED BY THAT STRING IS GRTAINED BY SCANNING JHE STRING % 
* ~ FROM THE LEFTe THE FIRST NON@*BLANK CHARACTER INTITIATES THE | * 
- OP IGIT STRING, AND FROM THAT POIny THE FIRST NUN®DIGIT (OR THE * 
_ ~ €ND OF THE STRING) TERMINATES THe DIGIT STRINGe NOTE THAT: THe ¥ 
a DIGIT. STRING IS EMPTY IF THE FIRST NON@BLANK IS NOT A DIGIT OR ¥ 
* IF THE STRING CONTAINS ALL BLANKS. THE VALUE ASSIGNED TO AN * 
* EMPTY DIGIT STRING IS ZERO+ IF THE RESULTING INTEGER IS LARGER ¥ 
* THAN TEN DIGITS AN ERROR IS GENERATED AT COMPIULE TIMEs OR ~ 7 ¥ 
* AINDEFINED RESULTS AT RUN TIME® i -* 
¥ * 
% | M - 
wt ¥ 
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* % 
* : * 
a on 
New | a a | oa 
* 238 * | -  $ FLAGVAL -( <IDENTIFIERD ) ¥ 
* OS ey Oe * 
* THIS IS NOT SUPPORTED IN THE CURRENT IMPLEMENTATION® . * 
a ' & »%. 
* 239 | oof ALL * 
* - - , | * 
» “THIS Is ALLOWED ONLY FOR POWERSET TERMS, AND REPRESENTS THE * 
* ALL@ INCLUSIVE SETe ; ¥ 
» a as 
» 220 ! ABS(<EXPRES>) ¥ 
a _ : a ¥ 
* “THE ARGUMENT MUST EVALUATE TO A NumERIC , ITEM*s® THE VALUE x 
* _ OF THE PRIMARY IS THE ABSOLUTE vaALUE O XPRESSIONe + 
¥ me ee | | : % 
* 2el ' EMPTY ¥ 
* 7 ¥ 
* THIS IS ALLOWED ONLY FOR POWERSE REPRESENTS THE * 
x EMPTY SETe | | Mi 
% | i | | ¥ 
* 222 | | 7 ! ( <EXPRES)> ce. , % 
eae ae : | * 
* THIS <EXPRES> MUST SATISFY. “BAME RESTRICTIONS UN <PRIMARYD AS x 
+ ‘THE <EXPRES> WHICH CONTA] Tee | | # 
po *% 
" Bee2e3e4% PROCESSING : PROGRAMM ¥ 

* . ee oh 

. & : -_ ’ 
¥ FOR EACH BLOCK. COMPIL ge ONE OUTPUT» THE REFURMATTED SOURCE» ¥ 
* IS ALWAYS PRODUCEDe THIS IS A L]JSTABLE FILE WHICH ALSO © * 
% CONTAINS ALL ERROR AND WARNING MESSAGES GENERATED BY THE % 
* COMPILERe IN NORMAL OPERATION Tuts IS RETURNED TU THE * 
¥ SYSTEM TEN AS A PUNCH FILE AND JIS ROUTED TO LVISC BY THE % 

4* STANDARD RJF DISC PROCEDURESe whILE DERBUGGINGs IT IS MOST x 
* -- CONVENIENT TO EDIT THIS OUTPUT FILE WITH ANY NECESSARY * 
*¥ ~~ CORRECTIONS AND THEN TO RESUBMIT THIS AS INPUT TO THE | ¥ 

™ . COMPILERs+ DURING COMPILATIONs THE DISCOVERY OF AN ERROR IN x 
¥ - THE. PROGRAM WILL CAUSE THE REFORMATTING TO STOP*® OUTPUT |. ¥ 
* - THEN PROCEEDS SIMPLY AS A COPY oF THE INPUT FROM COLUMN ¥ 
* 24 THROUGH COLUMN 74 OF EACK LINE, WITH A NEWLY CALCULATED — * 

=. INE NUMBER IN COLUMNS 758786 : ¥ 
¥ | ie ee : | % 
4 PRIOR TO EDITING THIS FILE» IT IS NECESSARY TO CONVERT IT TO * 
* AN Se#TYPE FILE+ THE FIRST EDIT sTEP SHOULD BE THE COMMAND * 
* oe | | % 

Z USE SINGLEeRURSLTe | * 
Oe so: ¥ 
* % 
¥ ¥ 
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_. ERRORS IN THIS BLOCKe 


“NOT BE DELETED BEFORE a ae 


“SIMPLY LISTING THE INPUT 


PRINT BEFORE THE PRINT 
OCCURRED. 


WARNING WeceuGne. BEG 


THIS RECONVERTS '&! AND 1K TO ryt AND tet RESPECTIVELY. 


FOUR. TYPES OF MESSAGES MAY BE INCLUDED IN THE SOURCE OUTPUT 


LISTING: 
INFORMATION 
WARNING 

ERROR 
FATAL ERROR 


-. THE LAST CATEGORYs FATAL ERRORKs MEANS THAT COMPILATION OF THIS 


BLOCK IS ABORTEDe NO ATTEMPT WyLt BE ads TO FIND FURTHER | 


BINGE THEY ARE IN THE FURM 
OF COMMENTS+ ANY ERROR MESSAGES QgGTR WITH '**#! IN COLUMNS 
1 THROUGH 3¢ THESE MESSAGES MUST one 


RN 


| B'GELETED BEFORE RESUBMIS= 
SIONe AT THE POINT WHERE THE FAS ERROR WAS VETECTEDs SOME 
DUPLICATION OF CODE MAY EXIST* “gig OREFORMATTERs ON DETECTING 
THE FIRST OCCURRENCE OF ERRORS S0THFBUTS ALL REMAINING FORMATTED 
INFORMATION UP TO THE LAST T€ GAL CONSTRUCT SCANNED PRIOR 

TO THE ERROR DETECTIONe ERERORMATTER THEN REVERTS TO. 

PSs AND THIS MAY PRODUCE 

Me THE ERROR MESSAGE ITSELF WILL 


REPETITION OF A FEW CONQ@RUG® 
2 THE LINE ON WHICH THE ERROR 


tTH "O*xexwARNING!'s AND INFORM THE 


PROGRAMMER OF CONOITIOWS WHICH may BE ERRONEOUSs ALTHOUGH 


THE COMPILER MAY TAKE ACTION TO PREVENT THE RECURRENCE a 
OF THE CONDITION. THIS HAPPENS IN THE CASE OF NON#@MATCHING 


GROUP NAMES ON 'BEGINe*sEND! OR 1 CyYCLEeeeee NEXT! CONSTRUCTS, 
WHERE THE REFORMATTER SIMPLY CHanGeS THE NAME ON THE GROUP 


~ TERMINATOR TO MATCH THAT OF THE GROUP INITIATORe THE | 
WARNING MESSAGE NEED NOT BE DELETED PRIOR TU RESUBMISSIONe. 


BECAUSE OF ITS FORM IT wILL BE IGNORED AND THROWN AWAY. BN: 
THE SCANNER s | 


AT THE END OF EACH BLOCK TWO ADDITIONAL LINES OF COMPILER © 
cs INFORMATION ARE PRINTEDe THESE AGAIN ARE IN THE FORM OF 
eS AND NEED NOT BE DELETED PRIOR TO RESUBMISSIONs 


IN ADOTTION TO THE. SOURCE OUTPUT, FOUR OPTIONAL QUTPUTS 


MAY BE OBTAINED, CONTROLLED BY THE SAVE, CODE» ALISTs AND. 
CHECK COMPILER OPTIONS AND THE CHECK OPTION ON DECLARATIONS: 
THE GAVE OPTION PUTS A COMPILED FORM OF THE SYMBOL TABLE 
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B 


- CODE IN ASSEMBLY@LIKE FORMe FOR An EX 
SEE APPENDIX Ay 'ASSEMBLY LANGUAGE COM 


THE CHECK OPTIONS ON DECLARATIONS 
IN ITS DATA SPACE WHICH HAS A Cy 


KIND SPECIFIED TO THAT DATA 
PRODUCES A SIMILAR LISTING F@ 


THE RESULTS OF A COMPILATG 


THE JOBe THE NEXT FILE™ 
REFORMATTED SOURCE, Quem 


ON A SYSTEM FILE AT THE 370° Once THIS HAS BEEN DONE» IT 
IS NOT NECESSARY TO RESUBMIT THat BLOCK WHEN COMPILING & 


SUBORDINATE BLOCK 


THE CODE OPTION PRODUCES A PUNCH FILE OF RELUCATABLE CODE AND 


. LOADABLE DATA WHICH CONSTITUTE THE OBJECT FORM UF THE SOURCE 
- BLOCKe THIS FILE MAY THEN BE INPUT TO THE LINK EDITOR WHEN 
—& LOAD MODULE FOR A COMPLETE PROGRAM IS TO BE PREPAREDe 


| THE ALIST OPTION PRODUCES AN ASSEMBLY®LIKE LISTING OF THE 
“ DATA DECLARATIONS AND ALLOCATIONS FOR THAT BLOCK AND ALL 
| BLOCKS TO WHICH IT IS SUBORDINATE. IN AQ 


TIONs IF THE CODE 


OPTION IS ONy THE ALIST OPTION pRODUCES 
ATIONS te 


CONTROLLED CROSS« 
BNG» FOR EACH ITEM 
PECIFIEDs» THE LINE 
REFERENCE OF THE 

HE CHECK COMPILER OPTION 
PARAMETERS AND DATA ITEMS. 


REFERENCE LISTING FOR EACH BLOC 


NUMBER OF EACH ACTION WHICH CAUS 


BN CONSISTS OF TwO UR THREE FILES» 
NO MATTER HOW MANY BLOC kgm, - 
FILE IS THE HASP HEADERM@TEROs WHICH IS USED ONLY TO IDENTIFY 
PANTAINS THE DISPLAYABLE OUTPUT; 

DER MESSAGES» AND A*LIST AND CHECK 
PTION IS USED» ANOTHER FILE WILL 
CODE FOR THOSE BLOCKS» 


LISTINGS. IF THE CODMge 
CONTAIN THE Seine ene 


| TERMINATIONS” 
5e2e4e1 TERMINATIONS © OPERATOR INPUT 


Se2e4e2 TERMINATIONS = OPERATOR OUTPUT 


TING OF THE GENERATED 
POF THE ALIST FORMATS 


INCLUDED IN THE RUNe THE FIRSI 
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Se2e4e4 TERMINATIONS = PROGRAMMER OUTPUTS 


“THE ONLY PROGRAMMER OUTPUT IS THE u 
ON THE REMOTE OR LOCAL PRINTERe 


INTERNAL STRUCTURAL FEATURES 


THIS PRODUCT IS BASED O 


FOR THE SYSTEM TENe 


56206 


STANDARD OS/VS2 OPERATOR OUTPUT FOR JOB TERMINATIUN® 


be2e4e3 TERMINATIONS @ PROGRAMMER INPUTS 


THE PROGRAMMER MUST SUPPLY THE STANDARD oS/VS2 JOB FILE 


. TERMINATORs WHICH IS A RECORD ConSISTING OF '/*! IN COLS. 
" 4¢e2s AND BLANKS IN THE REMAINING COLS* THIS REPLACES THE 'e!e! 
ENDING THE LAST COMPILATION BLOCKke ON OUTPUT THE '/¥! IS ALWAYS 
/ REPLACED BY 'elets | i | 


XCOM COMPILER STRUCTUREe® THE 
: Onty TO THE EXTENT NEEDED TO 
RES OF THE SINGLE LANGUAGEs TO - 

FOPMATTINGs AND TO GENERATE CODE 


ALGORITHMS HAVE’ BEEN MC 
SUPPORT THE SPECIFIC F 
PROVIDE FOR SOURCE T 


PROVISIONS | 


Se2e6e1 RELIABILITY 


NO SPECIAL PROVISIONS HAVE BEEN mMabE FOR PROTECTION AGAINST 

~ ENVIRONMENTAL FAILURES» BEYOND THOSE EXIXTING IN USs HASP»: 

AND RJF DISCe ALL ERRORS IN SOuRCE INPUT ARE DETECTED AND 
REPORTEDe NO INPUT ERROR CAN CatuiSE THE COMPILER TO FAIL OR 
TO CRASH THE SYSTEM*® NOTEs HOWEVERs THAT ATTEMPTING TO © 

 TRANSMET A FILE VIA RJF DISC wHICH CONTAINS '\! OR 'f! 


NATLON BANNER PAGE 
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CHARACTERS WILL CAUSE TRANSMISSION FATLUREs 
iin 
"NO RESTART exPawuityy IS PROVIDED. 
S+2+6+3 MAINTAINABILITY 


—- THE SINGLE CROSS#COMPILER IS WRITTEN IN 
THE VERY MODULAR STRUCTURE OF XcCom,. PLS 
'.. PROVIDES A NUMBER OF VALUABLE DEBUGGING 
~ COMPILER CONTAINS BUILT®#IN TRACING G¢ 
BY THE '9' FEATURE MENTIONED IN 3.62 
SINCE THIS PRODUCT IS NOT PLANNED <& 
USER EQUIPMENTs NO PROVISIONS F gg 
HAVE BEEN MADEe 


Ml AND BASED ON 
VEL H CUMPILER 
a AND THE 
Me ITY CONTROLLED 


INSTALLATION ON | 
TAINING PRODUCT Lee 
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GENERATED SOFTWARE 


6¢1 SYSTEM CONSIDERATIONS ¥ 


SINCE THE GENERATED SOFTWARE IS GENERAL SYSTEMS PRUGRAMMENG 
TYPE CODE, VERY FEW RESTRICTIONS or CONVENTIONS ARE 
- REQUIREDs | : | | | 


6+1e1. HARDWARE CONSIDERATIONS — 


THE GENERATED CODE IS TO BE LINK EDITED AND LUADED> HARDWARE 
TO SUPPORT THESE OPERATIONS» FLiUS A PARTITION TO RUN IN, | 
“IS ALWAYS REQUIRED+s ADDITIONAL HARDWARE REUUTRENENTS May BE 
eae BY A. ence a PROGRAM. 
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6e1e2 SOFTWARE CONSIDERATIONS 7 


-- THE CODE PRESUMES A DMF II ENVIRONMENTs INCLUDING COMMON LIOCS 
. €THE LATEST CURRENT VERSION)» AND THE LINK EDITOR® | 
. DETAILS ON LINKAGE OF SINGLE BLOCKS FROM OR TO ASSEMBLY=CODED” 
ROUTINES ARE GIVEN IN APPENDIX A» "ASSEMBLY LANGUAGE 
gach aie a 


662 “EXTERNAL ORGANIZATION 


EXTERNAL ORGANIZATION IS ARBITRQFY WITHIN THE SYSTEM OF 
BLOCK RELATIONSHIPS DESCRIBEU 1igge+3- 
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GENERATION 
THE ONLY CONTROLS ON ARE THOSE OF LINK EDITORe 


6«2e1+1 CONDITIONAL ASSEMBLY OPTION 


IF IT IS PLANNED TO INCORPORATE ASSEMBLY CODED MODULES 
INTO A SINGLE PROGRAM» THEY MAY HAVE SUCH OPTIONS*e CODE 
- PRODUCED BY THE SINGLE COMPILER WaS NONE, BEING IN 
RELOCATABLE. FORM. | py 


6+2+1+2 CUSTOMIZATION 
NO CUSTOMIZATION FEATURES FOR OHUECT CODE ARE PROVIDEDs 


«2613 INSTALLATION. 
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INSTALLATION CONSISTS OF LOADING THE CODE IN NORMAL DMF Ll 
FASHION VIA THE CONVERSATIONAL ,;QOaAaDERe | 


6+262 INVOCATION 


NO SPECIAL PROVISIONS ARE MADE BEYOND THQ, 
 SYSTEMe : 


60203 PROCESSING 


Ro 


NO SPECIAL PROVISIONS ARE MACS 
SYSTEMe 7 & 
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60204 TERMINATION 


NO SPECIAL PROVISIONS 


RE MADE BEYUND THOSE OF THE OMF I] 
SYSTEMe | ar 


6e205 INTERNAL STRUCTURAL FEATURES 


NO GENERAL FEATURES EXIST UNDER THE CURRENT IMPLEMENTATION. 


60206 PROVISIONS 


UNO SPECIAL PROVISIONS ARE MADE FOR RELIABILITY» RESTARTABILITYs: 
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OR MAINTAINABILITY OF GENERATED CoDE® 
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SINGLE CROSS-COMPILER 
APPENDIX A 


ASSEMBLY LANGUAGE CON 


RRRKK KK RK KEK RRR KKK KE KKK KKK KKK KEK KK KKK Ke KX 


Re RR KR KKK RK RK EE SEE ER BR REF eR RE KR RK Ks 
, a 


SHEET KOOL ow 


| SINGER  ! SINGLE ASSEMBLY 
* BUSINESS! 7.8 ee | REVISIUN lorenwennewewenennenenes 
- CCHIT We Gr ee ONS er ! NEXT 2! SHEET 1 # 


ee ee er OTE wee OEE CS ae Te ET EM Ne ee me 7 m8 ane -% 


i slant gettin oyadgeyid she anne aia fawiedh heed munis eng PN ected AARP Ri Mae eb Se sere nes abel asp debas te anata Dhar naah etd bike ae enkia eh quhatber lh beat ty coceul oi SM Anh oy bl et vomit, ini Miavie opened aaa ged ot Sas Ge asus, vn ules oy ss or an allcon sical Uh Waals AER doa pe tee ey fa ie pout le mb ne i ge ste Golo at 


iis diy AeMsctt anya ileal seeds maces ia aie i meaed sha tes shadkscati aati. Tapelhs Aion stanis cee bel que biule SAAR Snbihoe 
ROREB Es 1 hashish Mae alltel ba ass akg Aetls z 1 i Hawi! " f: 


errr rrr rr ee ee ee ee eee ee 
* 


1+ EXAMPLES OF ALIST AND CODE OUTPUT 


ALL OF THIS APPENDIX WILL BE BASED ON THE FOLLOWING EXAMPLE OF 
SINGLE CODEe THE CODE ITSELF DOES no RECOGNIZABLY USEFUL WORK, 
BUT JS INTENDED ONLY TO POINT UP THE vARIOUS CONSIDERATIONS IN 
RELATENG SINGLE CODE TO MACHINE ADDRESSES ANQSMM LINKING SENGLE 
PROCEDURES FROM AND TO ASSEMBLY CODED ROUTIM 


SOURCE INPUT. 


: OPTIONS(SAVE) | 

CONTEXT NULCON 3 r - 
TYPE ae 
 EXAMP1 «= TASK LINK 
END EXAMP4 

END. TYPE 


Reece KK KKK KK KKK KKK KK KK K K 
ee Whe SC 


OPTIONS (ALIST). 
TASK EXAMP14 7 
PARENT NULCON 
PARAMETER | | | 
£ASIZE , 39 
£BSIZE $15 * 
EMAXAB SeMAX(£ASIZEs £BS1IZE) 
END PARAMETER _ 
TYPE | 
 AeREC = RECORD. 
“HEADER -« SSTRINGCEBSIZE) 
BODY = “DARRAY C£BS1ZE) OF INT CLASIZED 
END A+REC oc 
: 2 EXAMP2 ri ‘PROCEDURE LINK 
ON. | .$INTCEBSIZE) 
ASSIGNS ke | 
Ss. | » STRING LEASIZE) 
END EXAMP2 | 
END TYPE | 
PRESET ; = | | a | | . 
CINITN  SINTC€BSIZEI | PEBSIZE@MIN( LAST ZE, 
£BSIZE) | | | | . 
INITS Ss - $STRINGC£EASIZE} ftULASTVAL! 


~~ 
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END PRESET 

VARIABLE ce | 

PARM | . SEXAMP2 | | | | | 
END VARIABLE ee | | es 
PARMeoNisINITN | , 
—PARMeS3S@INITS 
< CALL EXAMP2(PARM) 
STOP + CURRENTLY LACK CODE GENERATION FOR 'STOP! 


PRR eRe ee 


¢ 
¢ 


* 


PROCEDURE EXAMP2 
PARENT EXAMP14 
CONSTANT | | 
men SINT CLASIZE) 
cz SINT CE£BSIZE) 
END CONSTANT 
| VARIABLE 
Xe VY | SINT CEMAXAB) 
“ae SINT (C£AS1ZE) | 
ob — PARRAYCINITN] OF 
We ENDER mantra r 
END VARIABLE 
XeedeNeCi 


kex « eee Ke KKK KEE KK KK KKH KKK EK * +m 
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1; @+6S(CZ) i =H6S(X) 
180 RETURN 


ole 
SOURCE OUTPUTe 


THE RESULT OF COMPILING THE ABOVE CODE IS AS FOLLOWS (NOTE THAT THE 
CODE OPTION IS ON BY DEFAULT): | 


- OPTIONS(SAVE) ~ 
O CONTEXT NULCON 
i. “get Pe. 3 | 
2 ° EXAMP1 @ TASK LINK 
2 END EXAMP1 
1 END. TYPE 
© 


OPTIONS (ALIST) 
0 TASK EXAMP1L 
1 PARENT. NULCON 
1. PARAMETER: | 
2:  €ASIZE. . 39 
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% 
we £LBSIZE 715 
* 2 £MAXAB :MAX( £ASIZEs £88 1ZE 
x 1 - END PARAMETER | 
* i TYPE : : 
* 2 AeREC # RECORD. 
* 3 HEADER  §$STRINGCEBSIZE} 
¥ 3 BODY SARRAY C£BSI1ZE] OF INTCEASIZE] 
* 2 END A+REC 
—* 2 EXAMP2 = PROCEDURE LINK 
* 3 a) PINT C£BSIZE) 
*2 ASSIGNS 
* 3 BO ~$STRINGCEASIZE) 
x 2 ' END EXAMP2 
* 1 END TYPE. 
¥* ]j PRESET a 
* 2 INITN SINT C£BSIZE) PEBSIZE@MIN( £ASIZE> 
* £BSIZE) . 
* 2 INITS SSTRINGCLASIZE} stLASIVAL! 
* 1 END PRESET | 
x 4 VARIABLE 
* 2 PARM | SEXAMP2 | . 
¥ EETELEBP LS DECLARATIVES FOR TASK EX4 weretete tS 
¥ * 3 
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tt CONTEXT \_ | | 3 aie | 
4 € PROCEDURE > <IDENT> DESCRIBES WHICH TYPE OF SOURCE’ BLOCK 


\ TASK a, FOLLOWS AND GIVES A NAME FOR THE BLOCK 
"a "PARENT - : <IDENTD> NAMES THE NEXT HIGHER. LEVEL BLOCK 
rr: <r | GOVERNING THIS BLOCKe 
8  CHARMAP ete | * DEF lwes FUNCTIONS MAPPING CHARACTERS. 


<DEF > - 3 ONTO THe INTEGERSe . THESE MAY BE. USED | 
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DECLARATION STATEMENTS 


<DEF> FOR CODE CONVERSIONS» SCANNING, ETCe 
END CHARMAP 
» PARAMETER == = ———s«éDEF INES VALUES FUR SYMBOLS APPEARING 
: <DEF>. | | WITHYN THIS AND LOWER LEVEL BLOCKS 
<DEF> e | WRICWH aRE TO FUNCTION AS- COMPILE TIME 
er’ , 3 | PARAMETERS. 
END PARAMETER 
© TYPE DEFINES NAMES WHICH SPECIFY PARTICULAR 
—  <DEF> KINDS OF DATA,.GTRUCTURINGs WITHIN 
<DEF> THE DECLARAEY STATEMENTS VARIABLES 
: WILL Be DEGU® y AS PUSSESSING THE. 
END TYPE EN ERE* NAMES ALL BLOCKS 


QROINATE TO THIS BLOCK» 
F ARGUMENTS USED BY EACH. 


THE DECLARATION STATEME AME AND DESCRIBE THE ITEMS OF DATA 
USED WITHIN THE PROGRAM 


GIVEN IN THE DEFINITIG 


WHERE DATA ITEMS AR 


WAVE CONSTANT VALUESs THE DECLARATION 
FORM IS: | ae | 


CONSTANT 
<VALUE DEC> 
<VALUEDEC> 


ENO CONSTANT 


THE FORM OF EACH <VALUEDEC> IS 


<IDENT> S<TYPE> E<VALUE >) <VALUE Dy 0 


WHERE THE <VALUE>S ARE DIRECT STATEMENTS OF THE VALUE FOR 
EACH COMPONENT OF THE DATA ITEM <IDENT>e © 


THE, <TYPE> MAY BE A TYPE NAMED IN THE DEFINITION SECTION OR. 
ONE OF A. SET OF PREDEFINED TYPES BUILT INTO THE COMPILER» 


| IN THE CASE OF VARIABLES WITH PRESET INITIAL VALUES) THE: FORM oo 


ING USE OF THE TYPES AND PARAMETERS © 
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VARIABLE 


- END VARIABLE 


Ee 


“IS 


PRESET 


<PREDEC> 
<PREDEC> 


END PRESET 


FOR DATA ITEMS WHICH ARE VARIABLE AND HAVE NO PRESET VALUEs THE 
DECLARATION FORM IS: | 


<DECLAR>D 
<DECLAR> 


® 
.e 


EACH <DECLAR> IS OF THE FORM 
<IDENT1I>>» KCIDENTCr> veces 
cecee eertenee 


voc eC IDENTND 


WHERE THE <IDENTID ARE 
COMMON Shee INDICATED 


IF ANY VARIABLES ARE - 


( ASYNCHRONOUSL Y OPERAT , PROGRAMS) THEY ARE DECLARED — 

FLAG 
<IDENT> 
<IDENT> 


END FLAG 


ACTION STATEMENTS 


THE ACTION STATEMENTS DESCRIBE THE PROGRAM EXECUTION: THE 
“MANIPULATING OF DATA AND FLOW OF CONTROL» AND CONSTITUTE. 
WHAT IS COMMONLY CALLED THE ‘EXECUTABLE PROGRAM! + | 


COMPILATION STRUCTURE 
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A COMPLETE SOURCE PROGRAM CONSISTS OF A SET OF NAMED BLOCKS+ 
THERE IS A UNIQUE NAMED CONTEXT BLOCK WHICH CONTAINS ONLY 


DEFINITIONS AND DECLARATIONS» INCLUDING A 'LINK! STATEMENT TO ONE 


OR MORE TASK OR PROCEDURE BLOCKkSe THE TYPICAL PRECEDENCE 


STRUCTURE IS:” 


ff ¢ 
PROGRAM F  — PROGRAM G 
>ma} CO awaw lias capers oe ae G8 Be ew ae é: 
' 


PROGRAM J = PROGRAM K 


HERE TASK B IS THE HI 


CONTEXT aA 2 3 
’ : 
: 
| See ees Rag SH 2+ a ww + Oe He we =p qe oF ie ; Tree 
- ! | 
- TASK B PROCEDURE C TASK E 
' | ’ 
ee ee ee ee ee ce ea wea & + +m am me em 


PROGRAM I 
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° e 


$e oe ode em an an ee wow ao 
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PROGRAM ™ PROGRAM N 


LEVEL BLOCK OF A COMPLETE PROGRAM. 
me BLUCK OF ANOTHER COMPLETE PROGRAM 
WE CONTE XTe PROCEDURES C AND D ARE 

USING CONTEXT A», AND WILL BE LOADED 


WHICH MAKES USE OF 
ACCESSIBLE TO ANY P 


AS PART OF ANY SUCH PR GRAM. A pLocCK IS CALLED THE PARENT OF. 


ANY BLOCK LINKED TO IT aT THE NexT LOWER LEVEL*® THUS» FOR: 
EXAMPLE» F IS THE PARENT OF JoKk, anD Le Jy Ke ANU L ARE SAIC 


TO BE DIRECTLY SUBORDINATE TO Fe IF TWO BLOCKSs SUCH AS B AND 


K» ARE SUCH THAT THERE EXISTS A SEQUENCE OF BLOCKS Bs Xs Va oe kK 
WITH EACH BLOCK THE PARENT OF THE FOLLOWING BLOCKs THEN kK 1S 
SAID TO BE SUBORDINATE TO Be FOR ANY BLOCKs THE SCOPE OF THE 
BLOCK IS DEFINED AS THE BLOCK ItseLF PLUS ALL BLOCKS WHICH 


ARE ‘SUBORDINATE TO ITe 


Aurnsa MAY BE ALTERED AND RECOMPILED wWITHUUT AFFECTING 
— -SANY BLOCKS NOT SUBORDINATEs AS LONG AS ITS NAME AND ARGUMENTS 


ARE UNCHANGED: A CHANGE IN A BLOCK MAY REQUIRE RECOMPILATION 


OF ALL SUBORDINATE PROGRAM BLOCKS. THE COMPILATION OF A 
PROGRAM OR CONTEXT BLOCK PRODUCES a SYMBOL TABLE WHICH REP@ © | 
RESENTS THE DEFINITIONS AND DeCLaRaTIONS OF THAT BLOCK+s ALSOs © 
“-COMPILATION OF A CONTEXT BLOCK PRODUCES A RELOCATABLE DECK OF | 
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THE INITIALIZED DATA DECLARED WITHIN ITs THE COMPILATION OF. 


PROGRAM BLOCK ALSO PRODUCES A RELOCATABLE DECK CONTAINING 
BOTH DATA AND OBJECT CODE 


A PROGRAM BLOCK MAY CONTAIN ALL THREE KINDS OF STATEMENTS» 


ere OF Ye 


CHARACTERS», THE FIRST OF 


IDENTIFIERS AND VALUES 


IDENTIFIERS SERVE TO DENOTE Da 


A PROGRAM BLOCK MAY REFERENCE UNLY DATA DECLARED WITHIN 


ITSELF OR WITHIN SOME BLOCK TO wHICH IT IS SUBORUINATEe IF 


PROGRAM X CONTAINS A LINK TO PROGRAM Y THEN PROGRAM Y MAY BE 
INVOKED ONLY BY PROGRAMS IN THE SCOPE UF X BUT NOT IN. THE 


| | 
YPES, BLOCKSs STATEMENT 
IF ,-BCALAR TYPE VARIABLES» | 
YTHIN THE SCOPE UF THEIR 


GROUPSs SUBROUTINES» AND VALUE 
THEIR DENOTATION MUST BE UNI QY 
VALIDITY» Tees WITHIN THE BE 
AND ALL SUBORDINATE BLOCK MIDENTIFIER IS 1 TU 10 

HTS ALPHABETIC AND THE REST OF 
. OR THE UNDERLINE (e)e IN THE 
RAMETER, A SPECIAL PARAMETER 


WHICH ARE ALPHABETIC, D 
CASE OF DATA WHICH IS 
IDENTIFIER IS USEDs, C 
ING WITH '£'s FOLLOW 
ALPHABETICS» DIGITS 


WAN ALPHABETIC, FOLLOWED BY. 
DERLINE. 


EXAMPLES? 
SAM = —sST: DENTIFIERS 
Ae1L+3¢C _* 
£K*ONE —-.».—s PARAMETER ICENTIFIER 


LITERAL OR SELF*DEFINING VALUES FOR DATA ITEMS APPEAR IN PAR 


METER DEFINITIONS AND IN THE VALUE SPECIFICATIONS OF CONSTAN 


AND PRESET DECLARATIONS GNLYe THESE VALUES ARE OF TWO KINDS 
-- EITHER (NON@NEGATIVE) INTEGERS cr CHARACTER STRINGSs INTEGE 


- “VALUES ARE REPRESENTED BY A SEGUENCE OF AT MOST TEN DECIMAL | 
DIGITS. — 


| EXAMPLES! 


PARAMETER s 
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£BUFSIZE 332 
® 
END PARAMETER | 
PRESET mae 
; e P 
BASE SINTCEMAXB+EMAXC)] 3 
LINK | sINDEX=>V : 


END PRESET 


BY THE CHARACTERS 
DELIMITER APOSTROPHE 


uP TO 60 CHARACTERS MAY 


CHARACTER STRING VALUES ARE REPRESEN 
THEMSELVESs ENCLOSED WITHIN THE HQL 
(')» OR WITHIN BOUNDING QUOTES A 
‘BE GIVEN IN THIS MANNERe EXAMP 


CONSTANT 
i) 
e : 
A . (IN THIS INSTANCE, | 
: A IS FILLED WITH 
BLANKS) 
—~B ©tSAm? (JN THIS INSTANCES 


RA IS FILLED WITH 
mSAM' PLUS £K3e3 
BLANKS IF. £K3>36 
IF £K3<3e BIS FILLED 
WITH £K3 CHARACTERS 
FROM LEFT» AND ERRUR 
7 7 MESSAGE GENERATED. 
END CONSTANT | 
TF THE DELIMITER «t" IS To BE A PART OF A STRING VALUEs THE 
a QUOTE ek: IS USED AS A DELIMITER AND CONVERSEE Ys | 


IN THE CASE WHERE A STRING VALUE 1S LONGER THAN 60 CHARACTERS» 
OR WHERE BOTH DELIMITERS ARE USED wITHIN THE STRINGs THE PLUS | 
STaN FOR STRING CONCATENATION MAy BE USEN:. — 


PRESET 
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- & PARTICULAR TYPE OF VARIABLE, 


EACH OF THE POSSIBLE VALUESs 


IN ANY PART OF A PROGRAMe EXAMPLE: 


TYPE 


DIRECT = 
END TYPE 

ar aan 

VARIABLE | 


SOUTH» 


(NORTHs EAST, 


e Mein a 
A DIRECT 
° s: 
END VARTABLE 
IF A © EAST THENees 
WHERE VALUES ARE TO Bf ASSIGNED 
VALUE LIST IS USED» 
GENERATORS SEPARATED BY COMMAS, 


TO 


FORM 


RANGES =( ¥<PX1>¥*) 


~ INVOLVING VALUES» PARAMETERS» 

OR PRESET DATA ITEMS, 

oS VALUES OF <PX1> AND <PX3> ARE & 
EXAMPLES 


S2*RANGESS | 
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A STRING C£KTST} * tABCDEFGHIUKLMNOPURST I+ 
ei se (tUVWXYZ ed 
10123456789 af 
| tea /\ Hp 9 PH" ' ” 
B >. SSTRINGC£EKTSTI seHTStyutnt LEGAL HE RE « 
END PRESET ~ . 


| THE SCALAR VARIABLE, 
VALUES WHICH ARE INDICATED SYMBOLICALLY RY GIVING NAMES FOR 
THESE SYMBOLIC VALUES MAY APPEAR 


Ss. acs 
WE See 7° 
és 


ARRAY TYPE VARIABLES, A 

SONSISTING GF A SEQUENCE OCF VALUE | : 
A VALUE GENERATOR IS EITHER 
A VALUE OF THE KINDS ALREADY DESCRIBED, 


(TO <PX2>(¥STEP <PX3>¥%)3<1"EXP> 


WHERE <PXN> IS A PARAMETRIC EXPRESSION EVALUATING 
NEGATIVE. INTEGER AT COMPILE TIme AND <JwEXP> IS AN EXPRESSION 
PREVIOUSLY ESTABLISHED CONSTANT 
AND THE GUNNING PARAMETER RANGE 
AND 1 RESPECTIVELY® 


PRESET 
LINKS| ARRAY (£7) OF INDEX*>POOL 


TAKES QN 


OR IT MAY BE OF THE 


10 A NON@ 


DEFAULT 


‘RANGES *™ TO 19. 
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END PRESET | 
GENERATES THE VALUES Sy 75 99 veo, 430 | > 


AS ANOTHER EXAMPLE: 


PRESET ~ 
V1 . SINTC£AI 75 
V2 sINTC£A] 2 £A™1 | 
ee : 
A — TARRAY C£A) OF INT CEKLI | 


RANGE! ® Vi TO V2 39950 


_, PRESETS THE ELEMENTS. OF ARRAY A tof 7 cee, Gia: How Sp. Sy 
| Se G9e G9n eveey G99 Oo 4% | | 


NOTE THAT 'RANGE' IS A RESERVE Dogoh 


AND MAY NOT BE USED AS AN 
AOE ee oe, ee Soe PURP OME | 
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4e DATA 


Ae DATA CLASSES 


DATA MAY BE OF Séq 


PARAMETERS > 
CONSTANTS © 

PRESETS 
VARIABLES 
FLAGS 


AND ANY» EXCEPT PARAMETERS» may HAVE ATTRIBUTES 'CHECK! 

FF ty, §'§t FOR COMPILER CHECKING OF FETCHES AND/OR STORES 
OF THE ITEMe PARAMETERS ARE COMPILE*TIME GUANTITIES 
EVALUATED BY THE COMPILER FoR PARAMETRIC AND CONDITIONAL 
COMPILATIONe CONSTANTS ARE aLSO KNOWN AT COMPILE TIME ANU 
USED BY THE COMPILER, BUT ARE ALSO AVAILABLE TO THE RUN@ 
TIME PROGRAM (IeEes LOADED wITH THE PROGRAM)e AN ACTLON 
STATEMENT WHICH ASSIGNS A VaLue& TO A PARAMETER OR CONSTANT 
OATA ITEM GENERATES A itil TIME DIAGNOSTIC* PRESETS ARE 
_ TREATED LIKE CONSTANTS IN ComPrTLE TIME EXPRESSIONS BUT NOT IN 
RUN: TIME EXPRESSIONS, WHERE JHEY ARE TREATED LIKE VARIABLES> | 
THEIR. VALUES ARE LOADED WITH THE PROGRAMS 
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VARIABLES SHOULD HAVE A VALUE ASSIGNED TO THEM BY THE. OBJECT 
PROGRAM BEFORE BEING EVALUATED WITHIN AN EXPRESSION, SINCE THE 
COMPILER DOES NOT INITIALIZE vALUES FOR THEM AT LOAD TIME® 2 
FLAGS ARE USED BY COOPERATING PROCESSES AND MUST BE ATTACHED 
VIA A *LOCKt OPERATION BEFORE READING OR WRITINGe FLAGS MAY 
HAVE ADDITIONAL CHECK ATTRIguTES ‘Lat ttl FOR ACTIONS WHICH © 
LOCK OR. UNLOCK THEM. | 


“Be SIMPLE TYPES a 
: | 


Y GIVEN TIME ARE 


DATA WHICH MAY HAVE ONLY ONE VALUE gat “i 
PGQGNIZES FOUR BUILT= 


CALLED SIMPLE TYPESe THE ComPILe bm on 
IN SIMPLE TYPES: 


© INT CKNVAL>] WHERE <NVALD, A COMPILE TIME EXPRESSION 
CONTAINING NO VALUES, LUWEBNG To A NON@*NEGATIVE 
INTEGERe A VARIABLE OFZ PRES TYPE MAY TAKE ON. INTEGER 
VALUES N WITH O <® N <# (yVQ@LUE OF <NVAL>)* THUS IF THE 
PARAMETER £4 HAS THE «i "099. THEN A VARIABLE OF TYPE 
INTEC£EAY MAY TAKE ON4BN¥egr THE VALUES 0219230003998 
THE MAXIMUM SIZE Welt 
DIGITS« 
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Netetatene 


NOTE: YSINTC£B) ANB oe: 
PARAMETERS £8 ) AND 
TIMEs | 2 


RE ven THE SAME VALUE AT COMPILE 


. SINT LENVALDJ > MEANING A VARIABLE OF TYPE INT C<NVAL9SO] 
BUT ALSO CARRYING AN ALGEBRAIC SIGN SO THAT ITT MAY TAKE 
ON VALUES PENVAL DP @CNVAL D4 tae copes Ov lele ees CNVAL DOL, © 
aeNV EL es 


° INDEX©> IDENT WHERE ICENY IS THE [TDENTIFIER OF AN ARRAYe 
IF N TS THE DECLARED MAxtmMAL NUMBER OF ELEMENTS IN THe 
—  ARRAYs THEN THE INDEX VarRIABLE IS LOGICALLY EQUIVALENT 
TO A VARTABLE OF TYPE INTC(N] © HOWEVERs LF THE PRIMARY 
USE OF THE VARIARLE IS aS A SELECTOR OF ELEMENTS OF THE 
ARRAY THEN MORE EFFICIENT CODE WILL RESULT IF THE: 
VARIABLE IS DECLARED TYPE [NDEXe 


SINDEX@>A AND ZEINDEX*>B ARE DIFFERENT TYPES EVEN THOUGH 
“ARRAYS A AND B MAY HAVE IDENTICAL STRUCTURE* Z MAY BE 
_ USED: AS A SUBSCRIPT FOR Ay BuT THE RESULT IS INEFFICIENTe 


° FLAGe A. FLAG Is IMPLICITLY DECLARED OF TYPE INT (99) 
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AND PRESET TO ZEROe A FLAG MAY APPEAR IN AN EXPRESSION 
ONLY AS THE ARGUMENT OF THE FLAGVAL FUNCTIONS 


THE OTHER BIMPLE TYPES ARE CALLED SCALAR TYPES* THEY ARE 
DEFINED TYPES» WHOSE DEFINITION CONSISTS UF NAMING THE 
TYPEs AND: LISTING THE NAMES OF ALL VALUES SUCH A VARIABLE 
MAY ASSUME? — 

<SCALAR TYPED = (<IDENTY>,<IDENT2>», ee es K<IDENTO) 


EXAMPLE OF A SCALAR TYPE DEFINITION: | 


WEEKDAY = (MONDAYs TUESDAY, wEDNE THURSDAYS FRIDAY) 
KDAY CAN TAKE ON 

be NOTE THAT THESE 
FAL VALUES RATHER 


THUSs ANY VARIABLE DECLARED oF T¥ 
ONE OF THE FIVE POSSIBLE VALUES 
ARE SYMBOLIC DEFINITIONS OF typ! 
THAN LITERAL REESE Cees 


C+ COMPOUND TYPES 
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MHERE <NUMCHAR> IS A COMPILE TIME 
IING NO vALUESs EVALUATING TO A 

JERe & VARIABLE OF TYPE STRING [£4] 
71S AN ORDERED STRING OF CHARACTERS 


- ¢ STRING [<NUMCHA 
| EXPRESSION CONS 
Ci 


COnCty ee CA Y WHERE. £A HAS VALUE N+1)° 


ANY SUBSTRING OF SUCCESSIVE CHARACTERS WITHIN SUCH A 
— VARIABLE X MAY BE REFERENCED BY THE SUBSTRING NOTATION 


X(SINIT>) OR : | 
X(<INIT>s SNUMCHAR> }» WHERE <INIT> AND <NUMCHARD> ARE 


-RUN® TIME EXPRESSIONS EVALUATING TO NON@*NEGATIVE | 
INTEGERSe <INIT> SPECIFIES THE ORDINAL POSITION OF TRE 
 LEFT=MOST CHARACTER OF THE SUBSTRING AND <NUMCHARD IS 
THE NUMBER OF CHARACTERS IN THE SUBSTRING STARTING wITH 
~ SINTTS« ITF SNUMCHARD IS OMITTEDs, THE DEFAULT VALUE IS 
4 CHARACTER*® THE MAXIMUM LENGTH ALLOWED rae A SE RING 
eee aren Is C048 SnAneC lense 


— RECORDe | THIS IS A DEFINED TYPE WHOSE DEFINITION NAMES © 
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NAMEs  EXAMP, 


THE RECORD TYPE AND LIST NAMES ANDO TYPES OF THE FIELDS 


WITHIN THE RECORDe AN EXAMPLE OF A RECORD TYPE DEH 
FINITION IS | | 7 


BUFFER = RECORD 
FLINKsBLINK ‘I NDEX@>SPACE. 
NUMELS -STNDEXe> ITEMS | 
ITEMS © saRRAY C£SIZEJ OF INTLEN) © 
END , | 


THUS, A VARIABLE OF TYPE BUFFER CONTAINS SEVERAL | 
COMPONENTS: TWO INDICES FLINK &<@€§NK OF AN ARRAY 
SPACEs A COUNTER NUMELS (WHICH Fy COUNT THE NUMBER 
OF ELEMENTS PRESENTLY SToRED 4 P ARRAY ITEMS) ANO 
THE ARRAY ITEMSe FIELDS wiih fh 
BY QUALIFICATION, EeGes SRYUFSBLINKs WHERE OLDBUF IS 
DECLARED OF TYPE BUFFER. Me 
MAY ITSELF BE A RECORD « pity 


ARRAY C<NUMELD) OF <T YF eg: WHERE <NUMEL> IS A COMPILE 
TIME EXPRESSION CONI®ENTNG NO VALUES» EVALUATING TO A 


NON@NEGATIVE INTEGER SHR ARRAY TS AN ORDERED SET OF 


E SAME <TYPED>, WITH A MAXIMUM 


NUMBER OF COMPON@RREB DE TERMINABLE AT COMPILE TIME~ 


WRAY 1S REFERENCED BY SUBSCRIPTING» 


A COMPONENT OF gt AS 
amECX TYPE EXPRESSIONs OF THE ARRAY 


VIA AN. INT OR 


SPACE AYC£NUMBUF] OF BUFFER 


| REFERENCE TO AN ARRAY COMPONENT MAY BEs ErGe 


NEWBUF! = SPACE [CURBUF «F LINK) OR 
ATI+g} :=ACI] 4a CI eu) | 


NOTICE THAT ARRAYS OF ARRAYS ARE NOT ALLOWEDe 


-POWERSET. A POWERSET STRUCTURE IS A SET OF VALUES 


WHICH ARE THE SUBSETS OF THE SET OF VALUES UF ITS 


BASE TYPEs WHICH IS A DEFINED SCALAR TYPE® FOR: 


EXAMPLE; 


— COMPONENT = (BEGINJFREE) 


STATE ~ *POWERSET OF COMPONENT 
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THE VARIABLE STATE TAKES ON FOUR POSSIBLE VALUES, 
CORRESPONDING TO THE PRESENCE OR ABSENCE UF EACH 

OF THE POSSIBLE VALUES oF COMPONENTe ANOTHER . 
EXAMPLE; IF : 


PRIMARY = (RED, YELLOW,BLUE) 


2 
'@ 
@ 

HUE sPOWERSET Ck PRIMARY 


THEN THE HUE CAN TAKE ON ANY OM QE T@HT PUSSIBLE VALUES 
CORRESPONDING TO THE PRESENCR@QR WB SENCE OF EACH 
POSSIBLE VALUE OF PRIMARY. ,' 


SPECIAL SYMBOLIC VALUES 


FOR ANY POWERSET VARI ABLEG : 
ve WETH THE OBVIUUS MEANINGS + 


ARE ALLOWED! EMPTY AND 


THE MAXIMUM NUMBER OF 
A POWERSET IS DERTV Agi 
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Se DEFINITIONS 


Ww SOURCE BLOCK IS THE DEFINITION SECTIUN 
PE SUBSECTIONS IN THE FULLOWING ORDER: 


THE FIRST PORTION Of 4 


CONTEXT — PROGRAM 
BLOCK BLOCK 
BLOCK HEAD REQUIRED RE WUIRED 
PARENT . | INVALIC REWUIRED 
_CHARMAP ALLOWED | ALLOWED 
PARAMETER — | ALLOWED | ALLOWED 
TYPE | ALLOWED ALLOWED 


| Ae BLOCK HEAD+ THIS STATEMENT IS OF THE FORM 
CONTEXT 
“PROCEDURE — << IDENTD 
TASK 


<IDENT> IS THE NAME OF THE BLOCK HEADED BY THIS STATEMENT> 


KKK KKK KK RK RK KR KR KKK KKK KEK KK KR KK KKH KKK KKK KK KKK KKK KKK KKK 


* SINGER 2 SINGLE ! SHEET ; KOL -_ * 
* BY S I NES § ' ae LANGUAGE t REVISION leew manana an me Oe Ee me Oe wy 
* MACH INES | ' A : NEXT 17 ! SHEET 16 »* 


owe Ba ee we Oe oo Stele = oe =< om Tt me - = ag = Wee ET ee ee a Re ee OS De Oe Oe ee we we ean hae im ae mm - yh 


ot 


Fe Re Oe Oe we Re Be Oe Oe Be Oe BO Oe Oe OF OS Oe Oe Oe OH en ee BOER oe we UE OEE Owen eee ae ee ee me OK 


¥ 


¥ 


Be PARENTe THIS STATEMENT IS OF THE FORM 
PARENT <IDENT> 


<IDENT> NAMES. THE UNIQUE BLOCK wHICH HAS DECLARED THIS BLOCK 
TO BE IN ITS Score’ 


Ce CHARMAPe THIS CONSTRUCT DEFINES A NAMED MAPPING OF 
CHARACTERS INTO INTEGERS» WhICH MAY THEN BE USED TO EXPRESS 
VARIOUS TYPES OF CHARACTER@DEPENDENT LOGIC SUCH aS ACTION 
TABLES EXAMPLE: | | | 


CHARMAP 2 ) 


OPSCAN = ( 
Ostet 
13 tet 
ost 
Jet fegm! 
4S OTHER 
) | 


THE EXPRESSION OPSCAN( 
OF THE STRING NAMED L SME, 
BETWEEN QO AND 4 DEPE Hh an THE CHARACTER FOUNDe THE 

VALUES PRECEDING T LON APE DERIVED FROM POSITION ONLY 


PANES ThE 1TH CHARACTER 
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* IF THE COLON IS NOT. LOWED RY 'OTHER', THEN | 
¥ THE FIRST CHARAC Fem ER TRE COLON IS A DELIMITER: ALL 
* CHARACTERS FOUND WRPORE TRE NEXT Eruen En se OF THAT. 
+ DELIMITER MAP INTOMMHE SAME VALU 
% 
* THE COMPILER CONTAINS A BUILTIN CHARMAP CALLED ASCI 164 
* WITH IMPLICIT DECLARATION 
¥ 
* : 4 
4 retye 
- Osta 
¥* ... 
% °. 
¥ .— 
# 163/0/ 
me 17:91$ 
+ ae ee _ 
» ie 'e 
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“De PARAMETER. ‘THIS STATEMENT Is oF THE FORM 


PARAMETER: 
<DEFINITION> 
<DEF INITION> 

: a 

@ 


END 


EACH <DEFINITION> IS OF THE FORM 
<PARAMIDENT> ><VALUE EXPREQ 


WHERE <PARAMIDENT>? IS 2 TO 10. 
£» FOLLOWED BY AN ALPHABETICs £Q 
DIGIT OR UNDERLINE CHARACTER oF <VALUE EXPRESSIOND> MUST 
YIELD A NON®NEGATIVE INTEG wLUEs OR A STRING VALUE> 

ALL PARAMETER NAMES USE Q@] i VALUE EXPRESSION MUST HAVE 
BEEN DECLARED, ANDs HE VALUATED PRIOR TO THIS PARAMETER 
DEFINITIONe ALL REFER TO DATA ITEMS MUST BE TO CONSTANT 
OR PRESET ITEMS DECL@S Some HIGHER LEVEL BLOCKe . 
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PARAMETER 


£BUFSIZE *20 
£CONFIG. a a ac a ae 
£INCREM o °3 

END. “% 


THIS SEQUENCE OF DEFINITIONS 1S INVALIN»s SINCE £INCREM IS 
REFERENCED: BEFORE BEING DECLARED. 7 | 


Be TYPE. THIS STATEMENT GIVES DEFINED TYPES USED IN THE SCOPE. 
- OF THIS BLOCK AND NOT DEFINED [N SOME HIGHER LEVEL BLOCKe. 
THE FORM IS | | | 


TYPE 
 <DEF> 
- €DEF> 


END 
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El) IDENTO. = 


E2) <IDENTO> = RECORD 


CIDENTNS1>, cee 
‘ | 


END <IDENTO> 


FOR RECORD TYPES. 


TYPE 
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A = RECORD” 
Fi _ ST REn 
Fe - TARR 
END A 


END TYPE. 


VARIABLE | 
Bo st 3A 


e. 


END VARIABLE 


beB oF 2 (K+) 
— SIDENTL>s CIDENT2> a 06% 
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SINGLE 


THE FORM “OE hand <DEF> IS 
FOR DEFINING SCALAR TYPESs 


<IDENT1>s KIDENT2>9 0 #09 <IDENTND 


HAVING DEFINED 
ONE MAY GIVE A DECLARATION IN 7 
DEFINING A VARIABLE IDENTK TO ¢ 
WITHIN THIS RECORD ARE REFERE, 
NAME FOLLOWED BY A PERIODs FG 
PARTICULAR FIELD GIVEN IN Le 


L) 
VMAX] OF INTCESIZE) ~ 


<IDENT? = / TASK \ 
1 eae ON PROCEDURE /. 


IMPLEMENTATION LANGUAGE 


“ (CIDENT1y IDENTZ2+ 66 IDENTN) 


QR 


*<TYPEWD 
*<TYPEL> 


ChARATION SECTION 
BE IDENTO*® FIELDS 
® BY GIVING THE RECORD 
OWED BY THE NAME UF THE 
MEP INITIONe EXAMPLE: 


rd 


ratetete 


/ LINK \ 
N QVERLAY / 


7 S<TYPE>» 


! SHEET  ! KOL 
{ i al 
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OA NEXT 


ORD TYPE NAMED IDENTOs 
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‘BLOCK IN WHICH THEY AW® 
APPEAR IN A CONTEXT OR 
SUBSECTIONS» EACH OPTIONALs IN THE FOLLOWING URDER? 


ASSIGNS © 
CIDENTM>» CIDENTND) +4 ><TYPEY> 


é 


END 


THE LINK AND OVERLAY DEFINITIONS NAME EACH BLOCK WHICH IS 
DIRECTLY SUBORDINATE TO TRE CURRENT BLOCKs AND IN ADDITION 
THEY SPECIFY THE KIND OF BLOCK (TASK OR PROCEDURE) AND 
THE ARGUMENTS, IF ANYe THE TyPES IN THE OVERLAY UR LINK 
DEFINITIONS INDICATE THE TYPES GF THE ARGUMENTSe THE 
EFFECT IS TO DEFINE a RECORD TYPE HAQENG@. THE SAME NAME AS | 
THE PROGRAMe INVOKING A PROGRAM INCE NAMING A VARIABLE 
WHICH HAS BEEN DECLARED TG Be oF TA SYPE* THE ‘ASSIGNS! 
INDICATE WHICH OF THE FIELDS are, NED VALUES BY THE 
_ INVOKED PROGRAM WHEN JT IS Exec HUS FIELDS NAMED PRIOR 
TO THE "ASSIGNS! ARE INPUT ArG& » THOSE WHICH FOLLOW THE 
'ASSIGNS' ARE BOTH INPUT AN ARGUMENTSe 


DECLARATIONS | | Fel . 


> ABSOCTATE AN IDENTIFIER WITH A DATA 

rO RESERVE SPACE FUR THE ITEMs AND IAN» 

SUE TO THAT ITEMe ALL DATA ITEMS 

Pe USABLE ONLY WITHIN THE SCOPE OF THE 
DECLARED. THE DECLARATIONS SECTION MAY 

PROGRAM BL OCKs AND CUNTAINS FOUR 


DATA DECLARATIONS SERVE 

ITEM OF A SPECIFIC TYPE 
SOME CASES TO ATTAC 
MUST BE DECLARED, A 


CONSTANTS 
PRESETS | 
VARIABLES 
“FLAGS | 


TO BEGIN THE DATA DECLARATIONS» any CONSTANT (READ*ONLY) | 
— DATA IS DECLARED IN THE CONSTANT SECTION: a 


CONSTANT 
<VALUEDEC> 
<VALUEDEC> 


END CONSTANT 
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THE FORM OF EACH <VALUEDEC> IS 


<IDENT> © $<TYPE> (* CHECK CLAUSE ») | | 
© EKVALUE GENDS< VALUE GEND se 6 *<VALUE GEND = 


VALUES CAN BE’ DECLARED ONLY FOR DATA*®ITEMS OF TYPE INT» INDEX 
AND STRINGs OR FOR ARRAYS OF SUCH J TEMSe THUS MORE THAN ONE 
VALUE IN A CONSTANT OR PRESET DECLARATION IS POSSIBLE ONLY FOR 
AN ARRAY TYPEe IN THIS CASE THE NUMBER OF VALUES MUST EWUAL 
THE DIMENSION OF THE ARRAY® | | 
DATA WHICH IS [To 
PROGRAM IS 


co. AFTER THE CONSTANT SECTIONs ANY CHANGEAB 
HAVE VALUES UPON INITIATION OF THE ASSQ 
DECLARED IN THE PRESET SECTION: 


PRESET 
<VALUEDEC> 
<VALUEDEC> 


END PRESET 


WHERE EACH <VALUEDEC> IS THE CONSTANT SECTION» 


THE FORM OF THE VAR TABL g@ WeTIon 1S: 
VARIABLE | 
<DECLAR> 
<DECLAR> 
e a 


eo 
END VARIABLE | 
WHERE EACH <DECLAR> IS OF THE FoRrM 
 KIDENTOD>s<IDENTL>s oe es KIDENTIDD 
<IDENTU>s <IDENTK> i<TYPE> 
WHICH DECLARES EACH OF THE VARLaBLES IDENTO THRUUGH IDENTK 
—=70 BE OF TYPE <TYPE>+ THE <TYPE> DESIGNATION MAY BE FOLLOWED 
BY AN OPTIONAL CLAUSE | | | | 
| me 2s ra Us CHECK F 
CHECK §” 
CHECK FS 
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Te 


ivan. PROCESSES» THEY ARE DECLARED IN THE FLA gett 
APPROPRIATE BLOCKe % 


THE CHECK OPTIONS ARE FoSa 
 UNLOCKs EITHER EXPLICIT, ¢ 


EXPRESSIONS 


WHERE FsS REFER TO FETCHES AND STORES OF THE VARIABLE® 
WHEN SUCH A SPECIFICATION IS MApe FOR A PARTICULAR 
VARIABLE» THE OUTPUT LISTING INCLUDES A LIST OF ALL STATE*= 


MENTS WHICH REFERENCE OR ASSIGN 1Q THAT VARIABLE*® (IN ADUITIUNS 
A GLOBAL OPTION EXISTS TO CROSSeREFERENCE FETCHES AND STORES OF 
ALL DATA ITEMS REGARDLESS OF THe CHECK SPECIFICATIONe) 


<TYPE> MAY BE A DEFINED TYPEs SIGNIFIED BY <IDENTIFIERD, 
OR ONE OF THE SIMPLE TYPES INT» sSINTs OR INDEX» OR 


A COMPOUND TYPE STRINGs ARRAY» OR POWERSE Te 


IF ANY FLAGS ARE TO BE USED FOR COMMUNICATION BETWEEN: cOOPE RAIL 
CT1ON OF THE © 


FLAG 
<IDENT> (* CHECK CLAUSE »*) 
<IDENT> (* CHECK CLAUSE *) 


8 
END . FLAG . 


(SEE SECTION .10eFs» ASYNCHRO MEONTROLe) IN THE CASE OF FLAGS 
PHERE L & U REFER TO LOCK AND 


MPLICIT VIA WAIT» SET AND FLAGVALe 


ONE OF THE PRINCIPAL COMPONENTS GF THE ACTION SECTION OF A 
PROGRAM IS THE EVALUATION OF EXPRESSIONS. IN THE SINGLE LANGUA 


EXPRESSIONS ARE OF SIX TYPES» OF WHICH THREE ARE EXTREMELY 


LIMITED: 


‘Ae. ARRAY & RECORD TYPE EXPRESSIONS MAY CONSIST ONLY OF THE Nam 


OF A DATA ITEM OF THAT TYPE, SUCH AN EXPRESSLUN IS USEFUL 
ONLY. FOR COPYING THE VALUES of THAT ITEM VIA AN ASSIGNMENT 
STATEMENT» OR FOR PASSING ARGUMENTS TO A PROGRAM BLOCKe 


Be SCALAR TYPE EXPRESSIONS CONSIST OF THE NAME OF A SCALAR 


TYPE DATA ITEMs OR-OF THE Name OF A VALUE OF A SCALAR. 
TYPE DATA ITEMe IN ADDITION TO COPYING AND ARGUMENT 
PASSINGs SUCH EXPRESSIONS ARE USEFUL IN EXPRESSING CONDITIU 
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STANDARD NOTATION OF SET THEORYs USING THE OPERATOR +2 ¥y 
=» FOR UNION, INTERSECTION anp RELATIVE COMPLEMENTs PLUS 
PARENTHESES, THE SYMBOLIC VaLUES 'EMPTY' & TALL 's AND NAMES 
OF DATA ITEMS WHICH ARE POWERSETS OF THe SAME SCALAR TYPE + 
IN SUCH AN EXPRESSIONs TRE NameE OF A VALUE OF THE BASE 
SCALAR TYPE 1S INTERPRETED aS MEANING THE SET CONSISTING 

OF THAT ONE VALUEs EXAMPLE: 


TYPE 
DIRECT = (NORTHs SOUTHEAST WEST) ff 
END TYPE | : 
VARIABLE 

DRECD ° 
END VARIABLE 


@ 


D :=DREC +e EAST 


—E EXPRESSIONS ARE FORMED IN THE 
MING THE OPERATORS +s "9¥9/2\2 ( T HE 
LAST TWO SIGNIFYI PUOTIENT aNtD REMAINDER RESPECTIVELY) 
PLUS PARENTHESESs MAMES OF INT» SINT» OR INDEX TYPE DATA 
ITEMS AND Pane va CNGe THE NUmeERIC TYPF FUNCTIONS ARE 


De INTs SINT» OR INDEX 
CONVENTIONAL MANNER: 


MAX aaa EXPRESSIONS a and B OF TYPE NUMERIC 
MIN (As B) " " tt * " 4” 
ABS(A) - THE TYPE CF €xPRESSION A MUST BE NUMERIC. 


CONVSI(A) THE TYPE OF EXPRESSION A MUST BE STRINGe | 
FLAGVAL(FLAGID) ee Sas 


NOTE. THAT. THE TYPE OF MAX OR MIN IS SINT LF ELTHER OF ITS 
ARGUMENTS ARE OF TYPE SINTe | , 


THESE FUNCTIONS GIVE RESFECTIVELY THE LARGER OF THE TwO VALUES, 
THE SMALLER» THE ABSOLUTE VALUE nF THE ARGUMENTs THE 


ENTEGER REPRESENTED BY A STRING CONSISTING OF DECIMAL DIGIT 


CHARACTERSs AND THE VALUE OF THE DESIGNATED FLAGe -IN ADDITION» | 
ANY CHARMAP'S” ARE INT TYPE FUNCTIONS? | 
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Ee STRING TYPE EXPRESSIONS ARE FORMED USING STRING REFERENCES, 
THE STRING TYPE FUNCTION CONVIS(a), PARENTHESES»s AND THE 
STRING OPERATORS '+!'slotytsty Ant t\te 


A STRING REFERENCE IS EITHER THE NAME OF A STRING TYPE DATA 
ITEM OR A SUBSTRING REFERENCEs wHICH CONSISTS OF THE NAME OF 
‘A STRING ITEM FOLLOWED BY ONE OR TWO INT TYPE EXPRESSIONS 
SEPARATED BY A COMMA AND ENCLOSED IN PARENTHESES* FOR EXAMPLE 
IF SAM IS DECLARED OF TYPE STRING, THEN | 


7 SAM (AB) 
SAM(CeD-E ) 


OF THE INT TYPE 

DER POSITION WITHIN THE 

-T) AND THE LENGTH OF A 

IF ONLY THE FIRST IS PRESENTS 
PRESSION IS 1° 


ARE EACH STRING REFERENCES» THE 

EXPRESSIONS ARE RESPECTIVELY A cH 
STRING (STARTING FROM ZERO AT T, 
“SUBSTRING STARTING AT THAT POS 
THE Pape eee OF THE SECQN 


THE MEANING oF THE eenele 


FOLLOWS: | , 


J ee RRR KK KK KR KE 


RATES aA STRING CONSISTING OF THE 
ED BY THE CHARACTERS OF Be 


+ 3 CONCATENATEONs A+ 
CHARACTERS: OF A FOR 


EXCISIONe A=B 


MATES A STRING BY REMOVING FROM A THE 
LEFT@MOST OCCURR | 


OF THE CHARACTERS UF oe 


, a HEADER ~ A/B. eonsisrs OF THOSE CHARACTERS OF A WHICH 
PRECEDE. THE LEFT=MOST OCCURRENCE OF THE CHARACTERS OF Be 


No TRAILER» ANB CONSISTS OF THOSE CHARACTERS OF A WHICH FOLLO 
THE LEFT@MOSsT OCCURRENCE OF THE CHARACTERS Or be 


a FUNCTION CONVIS(A) GENERATES a STRING OF DECIMAL CHARACTERS 
REPRESENTING THE VALUE ‘OF THE INT TYPE EXPRESSION Ae 


Be ASSIGNMENTS 


“ASSIGNMENTS ARE PROGRAMMED USING THE REPLACE, INCREMENT AND 
_DECREMENT ACTIONS» WHICH RESPECTIVELY HAVE THE FORMS ~~ 
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<REF LIST>!=<EXPRESSION> 
INCR <REF LIST>(#BY <EXPRESSION>4*) 
DECR <REF LIST>(#BY <EXPRESSION>»#) 


THE <REF LIST>. IS EITHER THE NAME OF A DATA ITEMs OR A LIST 
OF SUCH NAMES» SEPARATED BY CUMNMASe IN THE LATTER CASE,» Tre 

EFFECT IS THE SAME AS IF A SERI¢ts OF STATEMENTS WERE MADE, 
EACH ASSIGNING THE SAME VALUE To SUCCESSIVE DATA ITEMS IN THE 

LIST» 

THE EFFECT OF THE REPLACE STATEMENT IS THAT THE <EXPRESSION>D IS 

EVALUATED AND THE DATA ITEM TAKES ON THE RESULTING VALUES 

THE INCREMENT AND DECREMENT STATEMENTS gmp yY TO NUMERIC ITEMS 

ONL Ys AND HERE THE DATA JTEM HAS THE VALUE OF THE <EXPRESSIOND 
ADDED TO OR SUBTRACTED FROM THE PREVI Q“SUS yALUE OF THE ITEM. 
IF THE <EXPRESSION> IS NOT PRESENT Ae WP OF 1 IS IMPLIED. 


N VALUES TO DATA ITEMS 

® CHECKED AT COMPILE TIMe 

ye THE Type OF THE RECEIVING 

OF THE SOURCE ITEM» OR A 

“COMPATIBLE TYPES FOR a GIVEN 
wows IN THIS TABULATIONys N 

TANCES OF <NVALD>s WITH Mane 


THESE ARE THE MAIN ACTIONS WHICH 
“AT RUN TIMEs ALL SUCH ASSIGNME yg, 
FOR COMPATIBILITY OF TYPEs THA] 
ITEM MUST BE COMPATIBLE WITH Th 
WARNING OR ERROR MESSAGE RE Sift’ 
RECEIVING ITEM TYPE ARE GIv€ 
AND M STANO FOR VALUES OF xo 


Kee eK KK KEK KKK KEK KK KKK KK KK 


RECEIVING TYPE 


& 


AISLE TYPES 


INTEND [MJy INDEX™> (ARRAY CM) )- 


INDEX=> (ARRAY (N2) INDEX®>(ARRAYEIM]) | 


SINTIND INTEM}s SINTCMJs INDEX#>( ARRAY EM) ) 


 STRINGCNY | a STRING(M) (IN THIS JTNSTANCEs IF M>N AT 
‘ > 7 RUN TIME THE RESULT IS DEFINED: 
THE RECEIvinGg STRING IS FILLED TO ITS 
CAPACITY wtTH CHARACTERS OF THE SOURCE 
STRING STakTING FROM THk LEFT*MOST - 
POSITICNe IF M < Ny, THE RESULT IS AS IF 
THE SOURCE STRING WERE EXTENUED ON THE 
ICH! BY tyem BLANK Paeke nena 


SCALAR W | SCALAR « 
POWERSET OF X | POWERSET uF xs SCALAR X CIN THE LATTER 
. | | 7 CASE» THE SCALAR IS CONVERTED 10. 


A POWERSET CONSISTING OF THAT 
ONE SCALAR VALUE) | 
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ARRAYCN) OF Y | ARRAYON) OF z (TYPE OF Z COMPATIBLE WITH 
mit THAT OF Yie- 


R (A RECORD TYPE) R 


IF THE TYPES ARE INCOMPATIBLE OnLY IN THAT M>Ns THE COMPILER 

GENERATES A WARNING MESSAGE» ANY) ASSUMES THAT THE PROGRAM CAin 

GUARANTEE THAT THE SOURCE ITE” 15 IN FACT WITHIN THE RANGE 

OF THE RECEIVING ITEMe JF THE SoukCE ITEM IS NOT WITHIN THE 

RANGE OF THE RECEIVING ITEM AT RuN TIMEs RESULTS ARE UNDER TNED | 
EXCEPT IN THE CASE OF STRING ITErsS NOTE Dg pOve « | 


ee 


® 


CONDITIONS 


NATIVE ACTIONS TO BE 

ONG DATA ITEMS* THE BASIC 

t TONSs AND A GENERAL CONDITION 
ppp, RELATIONSs PARENTHESES AND 

™ ‘ORT: | 


-CONDITIONS ARE USED TO SELECT & 
PERFORMED BASED ON RELATIONSH1 6g 
COMPONENTS OF CONDITIONS ARE gE TS 
1S A BOOLEAN. EXPRESSON FORME 
THE OPERATORS 'NOT'2 ‘AND Jai & 


exe KKK KKK KEK OK KCK OK OK UK OK KOK KK 


‘PAJR oF EXPRESSIONS UF SIMILAR TYPE 
OPERATOR. THE OPERATORS AND THEIR 
“EXPES Arr SUMMARIZED 4S FOLLOWS? | 


RELATIONS ARE FORMED By, 
SEPARATED BY A RELATIQ 
MEANING FOR THE varie 


GREATER OR EQUAL 
LESS» GREATER 


STRING | SAME SAME. 
POWERSET | SAME EQUALs NOT EQUAL» 


CONTAINEDs CONTAIN 
PROPERLY CONTAINED 
PROPERLY CONTAINS 


SCALAR” os «ate EWUAL» NOT EQUAL 
IN THE CASE OF STRING RELATIONS THE NORMAL SORTING CUNVENTIUNS 


APPLYe-. THE SHORTER OF TRE TeU STRINGS IS CONCEPTUALLY 
LENGTHENED TO MATCH THE LARGER By ADDING BLANK | 
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CHARACTERS ON THE RIGHT AND THE RELATIONS LESS AND GREATER 
ARE DETERMINED By THE NORMAL ASCII COLLATING SEGUENCE VIA A 
LEFT TO RIGHT SCAN FOR FIRST NONweEGUAL CHARACTERS ® 


-4£0« CONTROL STATEMENTS 
Ae GROUPING STATEMENTS 


THERE ARE TwO CONSTRUCTS IN Nee. W 
GROUPING A SEQUENCE OF STATEMENTS S@ 
APPEAR WHEREVER AN INODIVICUAL STAT BM EN 
SYNTAX e THE FIRST OF THESE 15 THe 


FOW HAVE THE EFFECT UF 
THE SEQUENCE MAY 
EAS GALLED FOR IN THE 


ee 


BEGIN (¥*<GROUPID>*); 
<STATEMENTD 
<STATEMENT> 
; ® 

@ 


END (*<GROUPID>*)3 
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THE SECOND CONSTRUC 
REPETITION OR LOOP} 
LOOPING STATEMEN Vg, 


pA Se ME GAME EFFECT BUT ALSO INCLUDES 
HROUGH THE STATEMENTS (SEE 10¢ “Cea 


CYCLE (*<GROUPI 
<STATEMENT> 
-<STATEMENT> 


Me) #<REPE AT CONTROL): 


NEXT (#<GROUPID>*) ; 


THE OPTIONAL GROUPID MUST KE THE SAME IN BEGIN AND ENDs OR 
IN CYCLE AND NEXTs OR A WARNING MESSAGE IS GENERATED « 


Be CONDITIONAL STATEMENTS 


THERE ARE TWO TYPES OF CORP IT TON AL, oe eee THE FIRST 
IS OF THE FORM 


IF <CONDITION> THEN 
 <STATEMENT>. 
ELSE 7 
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<STATEMENTD 

WHICH CAUSES THE FIRST OF THE TwO STATEMENTS TO BE EXECUTED 
IF THE CONDITION IS TRUE ANDO THE SECOND TO BE EXECUTED IF 
THE STATEMENT IS FALSE* & SECOND FORMs | 


IF <CONDITION> THEN 
<STATEMENT> | 


IS ALSO PERMITTED’ THE AMBIGUITY OF A CUNSTRUCT SUCH as 


IF <CONDITIONO> THEN . | 
IF <CONDITION1> THEN é | | 
<STATEMENT> « 
ELSE £ « 
<STATEMENT> : 


IS RESOLVED BY ARBITRARILY FOR STHE ELSE TO BE. ASSOCIATED 
WITH THE INNERMOST IF- : | 


THE OTHER CONDITIONAL CONS. 


CASE <NUMERIC EXPRESS EQN 
O3:<STATEMENTOD> : 
AS<STATEMENTI> 

: ob 
= 
® : 
Ni <STATEMENTN: 
END CASE . 
HERE THE EXPRESSION IS EVALUATED AND THE RESULTING VALUE 15S 
USED TO SELECT THE ONE STATEMENT WHICH IS TO BE EXECUTED 
NO CHECKING IS DONE TG SEF IF THE VALUE LIES IN THE RANGE 
O=Ne THE: NUMBERS PRECEDING THE COLON ARE FOR READABILITY 
ONLYe THE: VALUES ARE DETERMinED BY POSITION IN THE LISTe 
“IN BOTH THE IF AND CASE STATEMENTS SPECIAL TREATMENT IS 
GIVEN WHEN THE CONDITION OR NtimMERIC EXPRESSION IS FULLY 
EVALUATABLE AT COMPILE TIME (rNVOLVES ONLY CUNSTANTS AND 
PARAMETERS) + THE APPROPRIAT~ BRANCH IS SELECTED AT COMPILE 
TIME AND ONLY THE CODE FOR THAT BRANCH JTS GENERATEDs 


Ce LOOPING STATEMENTS 
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REPETITION OR LOOPING OF STATEMENT EXECUTION IS ACHIEVED BY 
VARIOUS FORMS OF THE CYCLE ConSTRUCT? 


CYCLE (¥<GROUPID>*) ( #<REPE AT CONTROL >*): | | 
<STATEMENTD | P 
<STATEMENT> 

e 

NEXT (¥*<GROUPIU>*); 

THE ABSENCE OF REPEAT CONTROL MEANS THAT THIS GROUP UF 
STATEMENTS IS TO BE EXECUTED REPEATEBEWAUNTIL ONE OF THE 
STATEMENT CAUSES A TRANSFER QUT OF ROUP (SEE 100D, 
TRANSFER STATEMENTS) ; | 


REPEAT CONTROL HAS Two FORMS; 
WHILE <CONDITION> 


AND 


FOR <IDENT>?! =<RANGED>» & PL >see ees <RANGEND 
IN EACH CASE, WHEN A RE 
A TRANSFER. STATEMENT Sas 
THE INDICATED TEST - 
HAS THE RANGE LIS] 
BEGINS» IF YESs 
THE INEXT#o. 


AT OF THE GROUP IS CALLED FOR (HY 
PR BY ConTROL REACHING THE ENDING 'NEKI 
SMADEs 1.60 IS THE CONDITION FALSE OK © 
BEEM® EXHAUSTEDe IF NOTs REPETITION 

re OL PASSES TO THE FIRST STATEMENT PRS 


RANGE 1s THE FORM <NUMERIC EXPRESSION>s OR 
( #<EXPRE SSIONO>*) TO <EXPRESSIONI> (#STEP SEXPRESSION2>»*) 


THROUGHOUT AN EXECUTION UNDER FOR CONTROL THE VALUES OF THe 
-EXPRESSIONS UPON FIRST ENTRY GF THE CYCLE STATEMENT ARE 

THOSE USED FOR REPETITION CUNTROL AND TESTINGs Iekes CHANGING 
THE VALUES OF THE EXPRESSIONS wITHIN THE SCOPE UF THE CYCLE 
DOES NOT AFFECT THE LCOPING CONTROL. THE IDENT SHOULD BE AN 
IDENTIFIER DECLARED TO BE A vaRIABLE OF TYPE INT OR INDEX+ 
UPON TERMINATION OF EXECUTING UNDER FOR CUNTROL THE VALUE 

OF THIS VARIABLE IS THAT CORRESPONDING TO THE LAST REPETITIUN 
PLUS THE STEP. IF THE REPETITIGN WAS TERMINATED BY A LEAVES 
THE VALUE OF THE CONTROL VARYAaABLE IS THAT WHICH IT HELD WHEN 
THE LEAVE WAS EXECUTED)® THE CONTROL VARIABLE IS A NORMAL 
VARIABLE IN ALL RESPECTS» AND vALUES MAY BE ASSIGNED TO IT 
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LEAVE REFERS TO THE NEAREST PR 


WITHIN THE SCOPE OF THE 'CYCLE'. 


DEFAULT VALUE “OF NUMERIC EXPRESSIONO IS Ov 
DEFAULT VALUE ‘OF NUMERIC EXPRESS IONE IS le 


PRaneoren STATEMENTS 


— TWO STATEMENTS PROVIDE FOR TRANSFERS OF CONTROL WITH RESPECT 
TO BEGIN OR CYCLE GROUPS; pa 


LEAVE (*<GROUPID>*): 
AND 
RECYCLE(¥*<GROUPID>*): 


WG CYCLE OR BEGIN IF IT 


CARRIES NO GROUPIDs OR THE G FAMED OTHERWISEe (IF NO 


SUCH GROUP EXISTS A NON@F AT At BROR RESULTS). THE EFFECT 
IS TO TRANSFER CONTROL To ite © 


MEIRST STATEMENT PAST THE GROUP 
ENDING (END OR NEXT)° | 


BEPING CYCLE» AND TRANSFERS CONTROL 
“ENCREMENTATION IS CALLED FOR BY THE 
AS The SAME CONTRUL FUNCTIONS AS 
TINATE THE STATEMENT GROUPINGe 


RECYCLE REFERS TO A PREG 
TO WHATEVER TESTING . 
REPEAT CONTROL: TH 
NEXT» BUT DOES NOT T 


ON THE COMPILER SOURCE OUTPUT THE LEFTMOST TwO COLUMNS WILL 
SHOW A LEXICAL LEVEL FOR EACK STaTEMENTe ErGe 


10 + | IF eee THEN 
11 -  €STAT> 

10. | ELSE 

11 | BEGIN: 

120 + €STAT> 


12  <STAT> 


oi 7 END! 
400 <sTat> 


“THE APPEARANCE OF A LEAVE STATEMEWT WILL CAUSE A NOTATION 
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'FNN' TO APPEAR BESIDE THE LEVEL NUMBER» INDICATING THE 

LEVEL NUMBER TO WHICH CONTROL IS ADVANCINGe SIMILARLYs 

RECYCLE CAUSES 'BNN' TO APPEARs 

Saar ceS —— P 


3 CYCLE SAM WHILE eee : 
4 — <8TaT>. | 

a | CYCLE AL FOR eee 
5  €STAT> 


~ §F3 LEAVE SAM 
ee : 
€ 
583 RECYCLE SAM 
| e 
4B4 NEXT AL 
® 
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3B3 | NEXT SAM 
3 <STAT> 


THE NOTATION DIRECTS,.TH 
FIRST OCCURRENCE OF 


BEADER FORWARD QR BACKWARD TO THE 
NOICATER LEVEL NUMBERe 


E+  INTERPROGRAM CONTROL 


SEVERAL STATEMENTS CAUSE TRANSFER OF CONTROL FRUM ONE 
PROGRAM TO ANOTHER®. THESE ARE; . . 


CALL 
TRANSFER. PROCEDURE (¥( PARAMETER RECORD) *) 
DEFER. | «TASK (*( PARAMETER RECORD) *) | : 
START TASK (#( PARAMETER RECORD )*)(*OR <STATD>*) 
RETURN | 
STOP 
CALL Is THE CONVENTIONAL PROCEDURE INVOCATION® THE CALLING. 


PROGRAM GOES INTO WAIT STATUS Ang WHEN THE CALLED PROCEDURE 
EXECUTES A. RE TURN STATEMENT CONTROL RETURNS TO THE CALLING 
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PROGRAM AT THE STATEMENT FOLLOWING THE CALL STATEMENT 


A CALLED PROCEDURE NEED NOT EXECUTE A RETURN STATEMENT BUT & 
MAY INSTEAD EXECUTE A TRANSFER STATEMENT INVOKING ANOTHER 
~PROCEDUREe THIS TERMINATES THE PROCEDURE EXECUTING THE 
TRANSFER AND MAKES THE PROCEDURE TRANSFERREU [O ALT LIKE THE 
 CALLEE OF THE ORIGINAL CALLERs [eEes IF JT SHOULD EXECUTE A 
RETURN, CONTROL REVERTS TO TRE ORIGINAL CALLER*® IN TURNs THIS 
PROCEDURE MAY TRANSFER TG YET ANGTHERs ETCe UNTIL FINALLY SOMt 
PROCEDURE IN THE CHAIN EXECUTES «a RETURNe | | | 


TRANSFER AND TERMI Ne 
eRe 


‘THUS A PROCEDURE IS INVOKED BY A CALL @ 
ATES ITS EXECUTION BY A RETURN ce a ¥f 


ERBENDENTLY UF THE PROGRAM 

PROGRAM DOES NOT GO INTO 

MA THE DEFER INVOCATION) 

bi START INVOCATION). NOTE 

pte BY EJTHER A RETURN OR 

eEXECUTE A DEFERe ON THE OTHER 
PYURN OR TRANSFER SINCE IT HAS 

P TASK TERMINATES BY EXECUTING 


- A TASK IS A PROGRAM WHICH EXECUTES © 
WHICH INVOKED IT, IeEes THE INVOKge 
WAIT STATUS BUT EITHER TERMINATE ge. ( 

OR CONTINUES ASYNCHRONOUSLY (VBA iu 
THAT SINCE A PROCEDURE MUST 1EFR 
TRANSFER STATEMENT» IT MAY N@Se 
HAND A TASK MAY NOT EXECUTE 
NO RELATIONSHIP TO A CALL EA 
EITHER A DEFER OR A STOPS 
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se gR A PROCEDURE MAY EXECUTE A CALL TO 
3 STATUS FOR THE CALLERs UR A TASKs 
Be CONTINUES ASYNCHRONOUSL Y* 


NOTE THAT EITHER A TASK 
A PROCEDURE» IMPLYING 
| IN WHICH CASE THE Ss 


IN SUMMARY THE INVOKING OF OnE PROGRAM BY ANOTHER AND THE 
eer eee oF THE INVOKERs IS as FOLLOWS 


< se INVOKEE _ 
INVOKER DISPOSITION TASK PROCEDURE 
7 WATT we CALL 
eos | CONTINUE START =. 
% Tee | DEFER al 
— - WAIT | a | oo CALL 
— PROCEDURE CONTINUE START o | 
> | TERMINATE | a TRANSFER | 


. MEANS THAT THE COMBINATION IS NoT ALLOWED® 


* MEANS: THAT THE EFFECT CF INVOKING A TASK AND WALTING FOR 
~ TTS COMPLETION OR FOR SUME UTHER EVENT CAN BE ACHIEVED iy 
_ USING THE START AND THEN pace te A WAIT FOR THE APPROPRIATE 
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EVENT (SEE 10¢Fs ASYNCHRONCUS CONTROL STATEMENTS®) 


THE START STATEMENT INCLUDES AN tor! OPTION FOR USE IN THE CAdE 
WHERE THE TASK TO BE INVOKED IS CURRENTLY NOT FREE TU BE IN@= 
VOKED>s IF THE "OR! OPTION IS Omi TTEDs THE INVOKER GOES INTU 
WAIT STATUS UNTIL THE INVOKEE IS FREE» AT WHICH TIME THE INVOKE 
“AND INVOKEE ARE SCHEDULED FOR ReSUMPTION (AT THE STATEMENT AFTER 
THE COMPLETE START STATEMENT) AND INITIATIONs RESPECTIVELY 

IF THE 'OR!*t OPTION. IS USEDs AND THE INVOKEE 1S NOT BUSY, INVOKER 
AND INVOKEE. ARE IMMEDIATELY SCHEDULED FOR RESUMPTION AND INITIATION 
RESPECTIVELYe IF THE INVOKEE IS BUSY» CONTROL IS RETURNED TG THE 
STATEMENT WITHIN THE START AND FOLLOWING THE 'OR'* NO RECORD IS 
KEPT OF THE ATTEMPTED INVOCATION. THE INVOKER HAS SIMPLY FAILED | 
TO GET THE TASK STARTED, AND MAy TRY AG AT SOME LATER TIME® 


a ASYNCHRONOUS CONTROL 


YNCHRONOUSLY EXECUTING 

- OF FLAGS AND EVENTSe THE 
CCLARED IN THE FLAG SECTIONe ITS 
S PRESET TO ZeEROs AN EVENT IS:. 

' AND 'AND! OPERATORS (NO tNOT!. 
WHICH HAVE THE FORM | 


SYNCHRONIZATION AND CONTROL ANG 
PROGRAMS MAY BE ACHIEVED BY Jett 
FLAG IS AN IDENTIFIER <FLAG 
TYPE IS INT(99], AND ITS 
A BOOLEAN COMBINATIONs U 
OPERATORS) OF. SIMPLE EV 
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7 <REL OP ><EXPRESSION> 
WHERE <RELOP> IS. ONE THE NUMERIC RELATIONAL UPEKATORS (SEE Ge 
CONDITIONS) AND <EXPRESSION> IS QF NUMERIC TYPE (INT OR INDEX)« 
FINISH <PROGID> QCCURS WREN THE PROGRAM NAMED EXECUTES ONE UF 
STOPs TRANSFERs OR DEFERe THE ACTION STATEMENTS INVOLVED ARE © 

WAIT <EVENT> | 

SET <FLAGID> TO <EXPRESSIGN> 

UNLOCK <FLAGID> 

- LOCK <FLAGIO> (* CR <STAT> »#) 


IN ADDITION» THERE IS A FUNCTION FLAGVAL (<FLAGID>) WHICH MAY BE 
_ USEO IN EXPRESSIONS® a 
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A FLAG CAN BE REFERENCED ONLY AFTER THAT PRUGRAM HAS SUCCESS= 
FULLY EXECUTED A LOCK OF THE FLaGe ONCE THE LUCK IS EXECUTED, 
CONTROL IS RETURNED TO THE STATEMENT AFTER THE COMPLETE LOCK 
STATEMENTe IF THE FLAG HAS CURRENTLY BEEN LOCKED BY ANOTHER. 
PROGRAMs CONTROL EITHER REVERTS TO THE STATEMENT AFTER THE 'OR'y - 
OR WAITS TILL THE FLAG IS UNLOCKED IF NO 'tOR' GPTLON IS PRESENTe 


A FLAG VALUE IS REFERENCED EITHER BY AN EVENT OR BY THE FLAGVAL 
FUNCTIONe IN EITHER TYPE OF REFERENCE A CHECK IS MADE TO SEE 
THAT THE FLAG HAS BEEN LOCKED By THIS PROGRAM* IF NOTs A RUN® 
TIME ABORT OCCURS» IF THE REFERENCE IS RY WAIT <EVENT> THE 
IN THE EVENT ARE TESTED TO SEE IF THE EVENT HAS OCCURRED? 
IF NOTs THEY ARE UNLOCKED AND THe PROGRAMSGOES INTO WAIT STATUS — 
FROM THEN ONs WHENEVER A FLAG VaLUE CHAMIGES ALL EVENTS REFERENC® 
ING THAT FLAG WILL. BE TESTED+ Fur THOSE 
OCCURRED, THE PROGRAMS InN WAIT FOR THAR OE) 
FOR RESUMPTION AT THE STATEMENT FOL CQWwENG 


THE SET STATEMENT CAUSES AN ABOR 
{LOCKED BY THE PROGRAM: THE TYP, 
THOSE OF ASSIGNMENT TO A VARI AHgg 
ACTION OF THE SET IS TO UNLOGMeTH 
REFERENCED ONLY BY LOCK AND 
THEN THE PROGRAM MUST UNL 0G 


"PORE FLAG HAS NOT BEEN 

JRES FOR EXPRESSION ARE 

SF TYPE INT(99)* THE FINAL 

THE’ FLAGs IF A FLAG HAS BEEN 
yas AND NOT CHANGED BY SET» 

mT FLAG BEFORE TERMINATING? 
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iis "ARGUMENTS FOR PROGRANG 


AS HAS BEEN SEEN IN SeCTIGK Bs DEFINITIONS, THE LINK DEFINITION 

OF THE PARENT BLOCK DESCRIBE THE STRUCTURE OF THE ARGUMENTS UF 

A PROGRAMe THIS IS UNLIKE THE CONVENTIONAL HIGH LEVEL LANGUAGE 

WHERE THE PROGRAM DEFINES THE Type OF ITS ARGUMENTS*e THE PRESENT 
| ARRANGEMENT ALLOWS THE COMPILER 1Q COMPILE AND TYPE CHECK Ne» 

VOCATIONS OF THE PROGRAM INDEPENDENT OF THE PROGRAM BLOCK [T= 

SELFs AND ALSO FACILITATES OVERLAY STRUCTURES® 


- ANYWHERE WITHIN THE SCOPE OF THE BLOCK WHICH HAS DEFINED A 
LINK TO PROGRAM IDENT WE MAY HAveE | * 


® 
i 
VARIABLE 
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B 8 TDENT 


END VARIABLE’ 
oY CALL \ 
 Y DEFER \ 
\ TRANSFER / IDENT (8B) 
\ START / | 


\ 
| 


PRUGRAM IDENT 
[DENTs AND HENCE 
THY ALL THE PaRA= 


IT SHOULD BE RECALLED THAT THE pEFINITIOR 
ALSO CREATES A RECORD TYPE DEFINTTIUN CH 
NAMING A RECORD OF THAT TYPE SERVES T@ 
METERS THAT PROGRAM REQUIRES. 


INVOCATIUN PARAMETERS 


WITHIN A PROGRAM, REFERENCES TU | tigi 
ATFIED BY Tht SYMBOL tate 


ARE MADE BY CITING THE FIELD NAmgoogudl 
EXAMPLE $3 


TYPE 
SAM » TASK LINK 
A SINTC£Q] 
8 STRING LLP 
ASSIGNS 
C —S ARRAY CLE 
END SAM 7 : 
END TYPE 


¥ 
¥ 
¥% 
¥ 
» 
¥ 
* 
¥ 
* 
¥ 
% 
* 
¥ 
-* 
* 
¥ 
¥ 
- 
¥ 
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” 
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. me INDE Xe>C 


VARIABLE 
t 


7S AM 


VARIABLE. 


@ 
END 
« i _ 
START SAM(D) | 
aes a 
° : 
- TASK SAM. 
e 
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MACHINE SPECIFIC STATEMENTS 
SUCH AS DEVICE DRIVERS AND DEVICE 
DEPENDENT STATEMENTS ARE ALLUWED, 


APPEARANCE OF A ieee cat a 


Ae S/10 PROCESSOR 2e 


TEMP i=aeB> 


THIS LAST STATEMENT HAS THE EFFECT OF REFERENCING THE 2NQ 
COMPONENT OF THE RECORD ( WHICH waS USED AS THE ARGUMENT IN 


THIS: eT EeOGAR INVOCATION OF Sahe 


| THE COMPILER WILL. ISSUE A DIAGNOSTIC IF A PROGRAM ASSIGNS A 


VALUE TO ANY OF JTS ARGUMENTS NOT LISTED IN AN ASSIGNS OPTIUN 


OF THE LINK DEFINITION FOR THE PROGRAMes 


IN ORDER TO FACILITATE WRITING OF f < EPENDENT PROGRAMS 
DTQGNOSTICSs CERTAIN MACH INe 


1S CONTROLLED BY PASSWORDS GIVE. COMPILER DIRECTIVES + THE 


* THE COMPILATIUN PASSW UTHORIZES USE OF THaT 
| CONSTRUCT» AND oe 


TO THE MACKINE FOR WHICH 


«THE CONSTRUCT 7 Wied 
& G GENE RATED® 


OBJECT CODE IS* 
ANC S711 OPU: 
THREE CONSTRUCTS ARE GIVEN! 
© INP Ap Bo (# 9D #) 
AND 7 | 
e OUT AsBsC (¥* 2D #) 
WHERE | 
A IS A STRING REFERENCE (SOURCE OR DESTINATION FIELD) 
Bs C ARE EXPRESSIONS EVALUATING TO INT £99) (DEVICE 
NUMBER 6 CONTROL OPTIONS) NOTE: DISC I/0 IS NOT 
ae oes . 
Dp IS AN OPTIONAL STRING REFERENCE OF LENGTH 4 (1D) 


» STATUS AC» 2B *) 


SINGER! © SINGLE ! SHEET ' KOOL 


MAC H INES 


BU a IneEsS S ! nen LANGUAGE ! REVISION [seer teewncen nn mw cman ay 
' A  —! NEXT 37 1 SHEET. 


USE OF THESE STATEMENTS 


KKK KKK KKK KE KEK KR RK KK RR KKK RK KK KK KKK KKK KE RK KR KK KK KEK KEKE KK KK 


Pe Se tease Ga fe Gaoeteae Re wen Sa we He Ba Mange *e we ta ee a ee ae) es ee ee eo ee er es ee et ee ee a | ™ %, 


*% 


36 * 


. 


I MMKRAAA SAS CARY a cael CALC BR EAB LAI Na ah A A RIMM GO a i ach yc ASK RH Vea Ea AR a ae eee Mee bd NES adr cede AGT eta nll HSU oli E veg ptalure abba dh 


: e r re ; : . 
Jae Qe OVO Oe 8H Oe Be OH OP Ree FONE De ae, ORE FO ne ee BEC an we OS SCH OSS Te we me we we Me we mE OO oy 


* * 
¥ % 
r * 
Aisi * 
* WHERE * 
¥ eee : | - * 
* A IS A VARIABLE OF TYPE INT (6) (CONDITION CUDE) . + 
* . ‘ 
* B IS AN OPTIONAL STRING REFERENCE OF LENGTH 4 (Iv) * 
* % 

* Be S/11 MPU ¥ 
* : | - | % 
x TWO CONSTRUCTS CONCERN I/0: * 
¥ 4 
m1 e INP As Ba C | - 
¥ a ™ 
* © OUT As Bs 
¥‘ % 

4 WHERE * 
¥ % 
* A IS A STRING REFERENCE OF TH 1 * 
¥ ¥ 
¥ Bs C ARE AS FOR TRE DPU mM 
¥ , ¥ 
* THREE ADDITIONAL CONSTRUGT@ CONCERN INTERRUPT CONTROL: * 
¥ . ¥ 
* a ENABLE A * 

¥ 

Cc © DISABLE a * 
¥ *% 
* ¢ RETURN ENABLE r 
* | | : | ‘i 
* WHERE A IS AN EXPRESSION EVaLUATING TO INT(16]> a 
_ a . 
¥ a 

_ % 
: : 7 3 * 
* 13¢ BLOCK TERMINATION * 
% | ; 3 . * 
* THE END OF EACH COMPILATION BLOCK (CONTEXT, VATA UR PROGRAM) ~ * 

- IS SIGNIFIED TO THE COMPILER 8Y THE SPECIAL SYMBUL CUMBINATION 4 

me | e , 

— ele ¥ 

oe ve ot | | 3 “ 
* -CUNDERLINEs EXCLAMATION, UNDERLINE)» EXCEPT THAT THE LAST BLOCK x 

* OF THE CURRENT COMPILATICN RUN Is SIGNIFIED BY THE OS ENDSO0F*FILE * 

* CONVENTION = * 
x oe 
* /* 4* 
* ¥ 
* * 

* x 
es * 
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